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FACILITY: USER CALLABLE PROCEDURES 
ABSTRACT: 
THIS SET OF ROUTINES PROVIDES T 
READING FILES RY FILE NAME FROM A FIL 
THERE IS NO M CTISVOLUME SUPPORT, AND 
TO RETURNING ThE CORRECT FILE SIZE IN 
ENVIRONMENT: USER MODE 
AUTHOR: PETER H. LIPMAN » CREATION DATE: 14-DEC-76 
MODIFIED BY: 
v03-003 KDM0070 Kathleen D. Morse 11-Aug-1983 
reate Micro-VAX I version of FILEREAD. It has no CMPC5 
nstructions as those require software emulation. 


v03-002 KDM0041 Kathleen D. Morse 14-Apr-1983 
Remove the ODS-1 structure level support. 
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LARATIONS gob 1382 19:03 :)} FILEREAD.MAR; 1 ai dh) 

5 ~SBTTL DECLARATIONS 
: INCLUDE FILES: 
1006 / nocross 
YO00 $0 RDEF ;DIRECTORY ENTRY OFFSET DEFINITIONS 
D000 5 SFATDEF ;RECORD ATTRIBUTE AREA DEFINITIONS 
D000 § SFH2DEF sFILE HEADER DEFINITIONS, LEVEL 2 
5000 SFMODEF : MAP AREA, LEVEL 2 
1000 8 $1 1DDEF SFILE 1D OFFSET OEFINITIONS 
D000 SHM2DEF ;HOME BLOCK DEFINITIONS, LEVEL 2 
D00C SIODEF 3428 DEFINITIONS 
D000 SPSLDEF ;PROCESSOR STATUS LONG WORD DEFINITIONS 
4 SSSDEF sSYSTEM SERVICE DEFINITION 
000 i : MACROS 
DOOC 6 : »MACRO READVBN CHAN, VBN,BUFADR,HDRADR 
0000 7 -LIST MEB 
D000 4 USHAL HDRADR 
D00C 7 PUSHAL BUFADR 
DO0C 0 USHL VBN 
NN00 1 PUSHL CHAN 
NOOO ¢ CALLS #4,W*F ILSREADVBN 
0000 -NLIST MEB 
0000 : -ENDM READVBN 
OOU 
0000 8 »MACRO READLBN CHAN, VBN,BUFADR 
NOOO eLIST MEB 
NOOO | ROTL #9,81,-(SP) 
0000 MOVZWL #10$_READLBLK,-(SP) 
N000 0 PUSHAL BUFADR 
NO0C 1 PUSHL VBN 
NOOO 3 PUSHL CHAN 
D000 9 CALLS #5,W*F ILSRDWRTLBN 
NOOO 94 eNLIST B 
NOOO $ -ENDM READLBN 
eee 
2000 38 ; cross 
00 3 ; EQUATED SYMBOLS: 

+ 7 
D000 100 : 
D000 101 FH2SW_VBNOFFSET = FH2$W_CHECKSUM ;SAVE INDEX FILE VBN OFFSET 
000 «1 sIN THIS PLACE IN INDEX FILE HEADER 
000 1 ASSUME | FH2SC LEVELZ@-B EQ 2 
H00C 1 FH2SV_LEVEL2 = 
D000 105 FH2$V_BIGFILNUM = 10 s1F SET USE HIGH 8 BITS OF FILE ID RVN 
NOOO 1 § sFIELD AS FILE NUMBER EXTENSION 
HOOC 1 :BIT 1S PLACED IN FH2$W_STRUCLEV 
it 1 3BY THE FIL T CODE 
POOL 
D000 \ FILSC_CACHE_ID = 1 ;VERSION OF THE FILEREAD CACHE 
OOU é 
YOUU 18 ; OFFSETS INTO HEADER PORTION OF THE FILEREAD CACHE 
DOOU ® 
NOOO 114 Sor set 0,POSITIVE,<- 
000 «115 <FILSW_CACHE_1D,2>.- CACHE IDENT, AND WRITE INTERLOCK BIT 
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rose 3 DECLARATION g-4 JUL=1 138 F203 :3h FILEREAD.MAR; 1 
4 .WEAK  FILSGT_TOPSYS ;ASCIC TOP LEVEL SYSTEM DIRECTORY 
1 5 : OWN STORAGE: 
: 3 
0000 .PSECT YFILEREAD, BYTE, EXE 
161 FIL_GQ_CACHE: 
00000000' 1 -ADDRESS FIL$GQ_CACHE 
163 FIL_GT_DODEV: 
00000000" 0004 164 ADDRESS FILS$GT_DDDEV 
165 FIL_GT_TOPSYS: 
00000000' 166 ADDRESS FILS$GT_TOPSYS 
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a ® 
FILEREADUV1 = MICRO-VAX I FILES=11 LEVEL 2 FILE READ 10-AUG-1984 18:05:11 VAX/VMS Macro v04-00 P 
voee 3 FILSOPENFILE = RETURN FILE LEADER AND ST g- -JUL=1984 18: rae FILEREAD.MAR: 1 — (3) 
c 5 ; COMPLETION CODES: 
¢ : : $S$_NORMAL SUCCESSFUL COMPLETION 
¢ 8 ; SS$"N NOSUCHE ILE FAILED TO FIND DIRECTORY OR FILE 
c 9 i 55$"BADF ILENAME SYNTAX ERROR IN DIRECTORY OR FILE NAME STRING 
0 : 1 ; THE FOLLOWING COMPLETION CODES INDICATE FILE STRUCTURE PROBLEMS 
0 ¢ : : $$$_BADCHKSUM CHECKSUM ERROR IN HOME BLOCK, INDEX FILE HEADER 
¢ 4: DIRECTORY FILE HEADER OR FI DER 
00¢ 5: $S$_BADFILEHDR FILE HEADER CONSISTENCY CHECK FAILED 
000¢ $ : INDEX FILE, DIRECTORY FILE g DESIRED. FILE 
¢ : SS$_FILESTRUCT HOME BLOCK INDICATES THAT OLUM 
000¢ 8 : CONTAINS A NON-SUPPORTED FILE STRUCTURE 
99¢ 39 OR POSSIBLY THE HOMEBLOCK IS GARBAG 
0¢ 41 : SIDE EFFECTS: 
A a 
990¢ 45 + EQUATED SYMBOLS 
990¢ 4? : OFFSETS FROM AP 
00000000 d90¢ 49 ° ARGCNT = 0 
00000004 000C 250 CHANADR = 4 
00000008 000C 257 FILNAM = 8 
0000000 900¢ 38 IXFHOR = 12 
Sie ese er 
00000018 000C 255 RTRVPTRLEN = 24 : OPTIONAL 
9000001C 944 28 RTRVPTRBUF = 28 ; PRESENT IF AND ONLY IF RTRVPTRLEN IS 
ap9¢ 338 OFFSETS FROM FP 
900¢ 260 SOFFSET O,NEGATIVE, <- 
00C 261 <FID,6>, 73 WORD FILE IDENTIFIER 
00C $6 <DIRNAM, "16>, - DIR aS Tay AME AREA 
00C 26 <NAMBLK, 19>, e [5 Wi NAME BLOCK AREA 
00C 264 MDSC.12> ‘AANe ‘DESCRIP TOR AREA 
00C 265 <SCRATCASIZE, 0>- SSIZE OF SCRATCH AREA 
000C 266 
FFFA FID: 
FFEA DIRNAM: 
FF be NAMBSC; 
FEDS CRATCHSIZE: 
¢ THE FILE DESCRIPTION ON THE STACK LOOKS AS FOLLOWS: 
C 
¢ 
¢ 
¢ 
C 
C 
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FILEREADUV1 0- rie I FILES=-11 LEVEL 2 F jue REA 10-AUG=-1 5: VAX/VMS Macro v04-00 Page 7 
VOscOns FILSOPENT TCE =" RETURN FICE HERDER AND ey SaauentoRe Taisasso PARENBS Macro, eo 
¢ 77; { ' :NAMBLK 
¢ ti econo swe seewsene (eo re ee ene oe ee me + 
¢ 79 ; : } 
C 0; geese se neem nmos ee nen ceerere2ec ore } 
k $83 : 
C g: > eee See eee eee eeoeae ey | 
¢ 4: { sD IRNAM 
C 5: ASCII STRING OF 
¢ $ : DIRECTORY FILE 
0¢ : NAME.TYPE;VERSION 
G00¢ g : > Se ee otttimmeanineeieate 
00€C 290: FILE ID ! - sFILID 
a09¢ 31 : i NUMBER i 
Mit 3 : : RELATIVE VOLUME NUMBER | 
900¢ 96 5 been cewwweeenwenwenencennns 
90C 295: 
BE Bh 
990¢ 38 .ENABL LSB 
000C 300 FILSOPENFILE:: 
o8Fc 000C 301 ,WORD *M<R2,R3,R4,R5,RO,R7RI1> 
2c C2 O00E 13 BL  #-SCRATCHSIZE.SP SRESERVE SCRATCH STORAGE 
DC AD EO AD DE 001 14 MOVAL NAMBLK(FP),NAMDSC+8(FP) :SET ADDRESS OF NAME BLOCK 
04 BC O0000000'EF 00 0016 18 MOVL BOOSGL RPBBASE. @CHANADR(AP) ; INIT CHANNEL 
OO1E 318 : IF CACHE DESCRIPTOR EXISTS AND IS IN SYSTEM SPACE, THEN WE 
OIE 19 ; HAD BETTER BE IN KERNEL MODE TO USE THE CACHE. 
5B OFFDE CF vO OO1F Bes MOVL W*FIL_GQ_CACHE,R11 :1S CACHE IN SYSTEM SPACE? 
62 14 00 ‘ BGTR 10% {BRANCH IF DESCRIPTOR PRESENT 
0095 ZAND NOT IN SYSTEM SPAC 
10 13 0025 4 BEQL 208 ‘BRANCH IF NO DESCRIPTOR PRESENT 
58 00000004" EF 00 0 ? 5 10$: OVE FIL$GQ_CACHE+4,R11 £18 THe CACHE ENABLED? 
01 68 8} 6 $ CMPW sa CACHE_ID(R11), oribe. CACHE ID ;CORRECT VERSION OF CACHE? 
ee 8 BEQL :BRA NCH Tf ves 
B v4 00 915$:  CLRL RII DISABLE THE CACHE 
57 00000000" F DE 0 z 40 208: NOVAL ILsct DDSTRING,R7 ZADDR ESS OF COUNTED STRING 
D O44 4g INCL a ;STEP_OVER BRACKET 
ee 045 43 SUBL #2, R6 [DON'T COUNT THE BRACKETS 
046 45 : GET FILE NAME STRING, AND STRIP DEVICE OFF IF PRESENT 
50 O8 AC D 46 43 ; MOVL BILNARCAP) ,RO ;ADDRESS OF FILE NAME DESCRIPTOR 
27,1 4A 48 BEQL : BRANCH IF NO NAME SPECIFIED 
53 0 7D O04c 34 MOVG (RO), R2 R2 = SIZE, R3 = ADDRESS 
63 A 3A 004F 30 LOCC = #*A/:/, R2, (R3) {DEVICE NAME PRESENT? 
53 OLA, 96 0088 Oa ae SPR TE MOL ean 
52 70 9E 39 : MOVAB =(RO).R [REMAINING SIZE 
af 5 : SEE IF DIRECTORY SPECIFIED IN THE FILE NAME STRING 
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FILEREADUV1 = MICRO-VAX I FILES-11 LEVEL 2 FILE REA ap 10-AUG-1984 18:05: VAX/VMS Macro V04-00 Pp 
voseone FILSOPENF ICE = RETURN FICE HEADER AND Sf Soduentobe 17220250 PIREME RD ment coe, 
C . 
63 SB BF 9 3 5 25$: CMPBsW#*A//,(R3) DIRECTORY DELIMITER? 
. 4 : BEQL 308 :BRA FY 
63 #3¢ «(9 CMPB Oe #*A/</,(R3) tA TTERNA & CHAR ACTER 
1 60 BNEQ 40S ‘BR ANCH IF NO DIRECTORY SPE IF LED 
50 83 a 67 6 30$: ADDB3 #2, (R3)+,RO [SCAN FOR MATCHING BRACK eT OR 
DECL =R TADJUST SIZE AND ADR OF 
63 $2 A 960 ® LOCC =—- RO, R2, (R3) 7SCAN FOR CLOSE BRACKET 
: 0 } 64 BNEQ 356 [BRANCH IF FO 
0391 +3 7 65 328: BRW BADE JLNAM ;BAD FILE NAME IF NO CLOSE BRACKET 
7 d9 i: 66 $: MOVL R3.R ZADDRESS OF DIRECTORY NAME 
56 j 3 7 6 SUBL3 R3,R1,R SSIZE OF DIRECTORY NAME 
E 7D 8 MOVAB =(RO)-R 7SIZE REMAINING SKIP CLOSE BRACKET 
53 O01 Al CODE 0 0 $9 VAL 1(R1)<R :ADR OF REMAINING STRING BEYOND CLOSE BRACKE 
99 4 A ; SET UP COMMON ARGUMENT LIST FOR MOUNT, FINDFILID, ROCHKFILHDR 
0 4 3 bm nen weer were new ene es er en ece + 
084 374: ARGUMENT COUNT { + AP 
0 4 75 3 ga wrennneneenee see ern e ence een eee + 
Boas 6 3 ' CHANNEL NUMBER ' 
00 4 7 Z geese wre cce nee nee ne eenene= aeanma + 
0084 378: NAME DESCRIPTOR ' 
0084 79 3 one ne oas wemecse ne eaoerseesea= +> 
0084 380: | INDEX FILE HEADER BUF ADR ! 
00 4 81 Zz See OBE Betas ot een cen anaseas + 
0084 Be : { FILE HEADER BUFFER ADDR !} 
0084 rr ee + 
0084 384: | ADDR OF STATISTICS BLOCK } 
Bone 85 PI + 
084 86 ; ' ADDRESS OF FILE ID BLOCK ! 
0084 7 3 er ean enorme ean rare cen meron ee sce ee + 
O84 $9 ; i _ADDR OF RTRV PTR LENGTH! 
084 0; ! ADDR OF RTRV PTR BUF DSCR } 
O6 r 4! PY ereererroerwmorwwrre ec wen wmewmearecoe 
7E 7C 0084 98 ios CLRQ 2s = (SP) sASSUME NO RETRIEVAL POINTERS REQUESTED 
07 6C di 0086 394 CMPL §ARGCNTC(AP), #RTRVPTRBUF /4° -RETRIEVAL POINTER PARAMETERS PRESENT? 
046 19 0089 395 BLSS 45$ RANCH 
6—€ 18 AC 7D 00 %6 MOVQ  RTRVPTRLEN(AP), (SP) :PUT RTRV Aa. PARAMS IN LIST 
FA AD oF O8F 397 45$: PUSHAL FID(FP) ADDRESS OF FILE 
7E 10 aC 7D 0092 398 MOVQ —s« FILHDR(AP),-(SP) ‘PUSH ST ATBLK BR FILHDR ADR 
OC AC DD 096 99 USHL IXFHDR(AP) : INDEX X FILE HE HEADER ADDRESS 
D4 AD OOF 400 PUSHAL NAMDSC(FP) p WARE DESCRIPTOR 
04 8C DD 009C 401 PUSHL @CHANADR(AP) SOR ANNEL 10 USE et WORD FOR BOOTING 
06 D OF 4 : PUSHL #6 [PARAMETER COUNT 
3 D Al 4 STL. R11 SCACHE ENABLED? 
07 «1 AS 404 BEQL ©: 5508 
OC AE 18 AB bf A5 = 405 MOVAL EILSA_IXFHOR(R11) , IXFHDR (SP) : USE CACHED INDEX FILE HEADER 
08 1 AA 406 BRB «6 0$ SAND SKIP THE 1, 
O22c'cr 6€ FA OOAC 407 50S: CALLG (SP),W*FILSMOUNT : MOUNT THE VOLUME (READ HOME 
1 6 8 BL INDEX FILE HEADER, GET 
ee Teac fure LEVEL OF VOLUME) 
50 50 £9 } 410 BLBC ~=—_-« RO, 1008 SERA IF ERROR 
bee 412 : SET UP FOR THE DIRECTORY LOOK UP 
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E READ 10-AUG=1 05: VAX/VMS Macro v04-00 Pa Fy 
AND ST 9=-JUL=1 198 19:03 :3h FILEREAD.MAR; 1 - (3) v0 
#FIDSC_MFD.FID(FP) ;MFD FILE NUMBER 
#FIDSC"MFD.FID+2(FP) :MFD FILE SEQUENCE NO = 0 

pit _GT_TOPSYS :TOP LEVEL SYSTEM oie éeTORY PRESENT? 

‘BRANCH IF NOT 

Flt sot TOPSYS,R1 [GET ADDRESS OF TOP LEVEL DIR STRING 
¢ )+,RO :GET SIZE TO RO, ADR TO R1 

0 ‘BRANCH IF NONE SPECIFIED 
RG. = (SP) SSAVE DIRECTORY STRING DESCRIPTOR 
RO.R STREAT TOPSYS LIKE DIR STRING 
FORMDIRSTRING [FORM THE DIRECTORY NAME 
(SP) +.R6 TRESTORE READ DIRECTORY DESCRIPTOR 
FORMDIRSTRING :GET NEXT DIRECTORY TO LOOKUP 
RO,NAMDSC(FP) SSTORE DESCRIPTOR OF ITS NAM 
(SP) SREAL ADDRESS OF ARGUMENT LIST 

11 [CACHE ADDRESS IF ANY 
#2,W*F ILSFINDFILID :FIND THE FILE ID 

100$ {BRANCH IF ERROR 
NAMBLK (FP) TREINIT NAME BLOCK 
NAMBLK+8 (FP) 
R NY MORE DIRECTORY NAMES? 
70$ BRANCH IF YES, LOOKUP THE NEXT 
R2,NAMDSC(FP) SDESCRIPTOR FOR FILE TO LOOKUP 
R :STOP THE LOOKUP LOOP 
NAMDSC (FP) + ALREADY NE? 
$ ‘BRANCH IF HE LAST ONE 
ARGCNT (AP) ,#RTRVPTRBUF/4. RETRIEVAL MOOINTERS DESIRED? 
: BRANCH H IF NOT 


#2, (SP) 
(SP) ,W*F ILSRDCHKFILHDR 
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ADDITIONAL ARGUMENTS ARE ateeaese 
;READ AND CHECK FILE HEADER 
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EVEL 2 FILE READ 1 meee tty 19:03: }} VAX/VMS Macro V04-00 


-JUL=1 FILEREAD.MAR; 1 
~SBTTL FILSCACHE_INIT = INIT FILEREAD CACHE 


; FUNCTIONAL DESCRIPTION: 


CACHE_INIT PERFORMS THE INITIALIZATION FOR THE FILEREAD CACHE 


; CALLING SEQUENCE: 


CALLG ARGLIST,FILSCACHE_INIT 
: INPUT PARAMETERS: 

CHANADR (AP) ADDRESS TO RETURN LONG WORD CHANNEL 

FILNAM(AP) ADDRESS OF DEVICE NAME STRING DESCRIPTOR 
THE DEVICE NAME must CONTAIN THE ' 
IF THE ADDRESS IS 0, THE STRING IS NULL, 
OR THE NAME DOES NOf CONTAIN A "':'', THE 
DEFAULT DEVICE NAME IS USED 

CACHE_SIZE (AP) SIZE IN BYTES OF FILEREAD CACHE 

CACHE ~ADR (AP) ADDRESS OF FILEREAD CACHE 

DIR_CACHE_CNT (AP) NUMBER OF DIRECTORY CACHE ENTRIES 

LBN7 CACHE CNT (AP) NUMBER OF LBN CACHE ENTRIES 


; IMPLICIT INPUTS: 


NONE 


; OUTPUT PARAMETERS: 


RO = ALWAYS SUCCESSFUL STATUS CODE 


; IMPLICIT OUTPUTS: 


FIL$GQ_CACHE QUAD WORD FILLED IN WITH SIZE AND ADDRESS OF CACHE 


; COMPLETION CODES: 


SS$_NORMAL SUCCESSFUL COMPLETION 


; SIDE EFFECTS: 


NONE 


; EQUATED SYMBOLS, OFFSETS FROM AP 


CHANADR = 4 
LNAM = 8 
CACHE_SIZE = 1 
CACHE ADR = 1 
DIR_CACHE_CNT = g 
LBN-CACHE-CNT == 4 
atetie INIT:: 
.@ORD “AM<R2, R3,R4,R5,R10,R11> 
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G 
ILE BEAD 10-AUG-1984 :05: VAX/VMS Macro V04-00 Page 1 
EER eet 7 19:93 yf FILEREAD.MAR; 1 . 4) 
CACH ~S1ZE+4 +4 tte ine ADR 
CACHE SI 7R10= =Size RI1=ADR 
ait C_SIZe BYTES LEFT FOR DIR AND LBN CACHES 
10 ‘BRANCH If NOT ENOUGH CACHE SPACE 
#FILSC_CACHE_ID, am. CACHE ID(R11) ;SET CACHE ID 

‘AL COWS MOVING CACHES BETWEEN FILEREAD'S 
#FILSC_SIZE.FILSL_DIROFF(R11) ;BEGINNING OF DIR CACHE 
sr ILSC“SIZE FILSLDIRNXT(R11) NEXT AVAILABLE SLOT IN DIR CACHE 
#FIL C~bIR S126 ,D TR_CACHE_CNT(AP),R1 :BYTE COUNT FOR DIR CACHE 
R1,RO iByTE COUNT LEFT FOR LBN CACHE 
106$ ANCH IF NOT ENOUGH SPACE 
#FILSC_SIZE.R1,FILSL _DIRAAXCRS 11) ;END OF DIR CACHE 
FILSL_DIRMAX EQ FILSL_LBNOFF 
FALSE LBNOFF(R11),FILS =LBNNXT (R11) NEXT ibn ENTRY TO ALLOCATE 
4 -LBR “CACHE_CNT(AP),R1~;BYTE COUNT IN CACHE 
RIA iEN NOUGH H ROOM FOR eUHOLE LBN CACHE 
#°X1FF.RO,R1 just sal 1S LEFT TRUNCATED 
R1,FIL st CBNNXT (RI) FLL $L_LBNMAX(R11) ;END OF LBN CACHE 
BOOSGL RPBBASE ,@CHA ANADR(ABY POAD RPB BASE 
FILSA ACIXFHDRERIT) ADOR RESS TO READ INDEX FILE HEADER 
-(SP) ‘UNUSED P ARAMET 
aCHANADR (AP) CH HANNEL JUST ASSIGNED 
#3,W°F ILSMOUNT :MOUNT THE V VOLUME, RETURN INDEX FILE HDR 
RO SBRANCH IF ERR 
R16, FIL$GQ_CACH SSAVE DESCRIPTOR OF CACHE 
S*#$S$_NORMAL,R 
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ca TSBTTL. FILSCACHE TRUNC = TRUNCATE FILEREAD CACHE 
; FUNCTIONAL DESCRIPTION: 


ACHE _TRUNC TRUNCATES THE FILEREAD CACHE AND MAKES it IMPOSSIBLE 
TO avo. MORE-DIRECTORY CACHE OR DIRECTORY LBN ENTRIES TO IT. IN EFFECT 
THIS ROUTINE TURNS THE CACHE INTO A READ-ONLY DATA BASE. 


; CALLING SEQUENCE: 
CALLG ARGLIST,FILSCACHE_TRUNC 
: INPUT PARAMETERS: 
: NONE 
IMPLICIT INPUTS: 
FIL$GQ_CACHE DESCRIPTOR FOR THE CACHE 
OUTPUT PARAMETERS: 
RO = ALWAYS SUCCESSFUL STATUS CODE 
IMPLICIT OUTPUTS: 
FIL$GQ_CACHE FILLED IN WITH ALTERED SIZE OF CACHE 
; COMPLETION CODES: 
: SS$_NORMAL SUCCESSFUL COMPLETION 
: SIDE EFFECTS: 
NONE 
EQUATED SYMBOLS 
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: 
: 
(3 
é | 
: 
: 
t 
> 3 
: 
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6 
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? 
? 
? 
? 
? 
7 


F 


0 
1 FILSCACHE_TRUNC:: 
: -QORD 0 
MOVL FIL$GQ_CACHE+4,RO :ADDRESS OF THE CACHE 
4 MOVE FILSL_BIRNXT(RO) ,FILSL_DIRMAX(RO) ;NO NEW DIRECTORY CACHE ENTRIES 
« MOVL  FILSLTLBNNXT(RO).FILSL~LBNMAX(RO) :NO MORE UFFERS 
6 MOVL  FILSL7LBNNXT(RO).FIL$GO_CACHE ;SET NEW id NoF CACHE 
f S*#SSS_NORMAL ,RO 


FILEREADUV1 = MICRO-VAX I FILES-11 LEV BEAD 10-AUG-1984 18:05:11 VAX/VMS Macro V04-00 Page 13 
vos" 3 STORE SICITS - STORE : eve g 5161 He meres 1 R02: FILEREAD.MAR; 1 - wb 
A $ <SBTTL STORE3SDIGITS - STORE 3 ASCII DIGITS 
1A : 3 FUNCTIONAL DESCRIPTION: 
VA 4 : STORE 3 DIGITS OF DIRECTORY STRING 
A 4 ; CALLING SEQUENCE: 
1A? 44 ; BSBB = STORE3DIGITS 
Val 46 : INPUT: 
143 48 ; RO = NO. OF DIGITS TO PUT IN STRING 
1a? 49; R1 = ADDRESS + 1 OF RIGHT MOST picit 
4 0 ; R2 = ADDRESS AT WHICH TO STORE 3 DIGITS 
1a? : : OUTPUTS: 
1A7 4; NONE 
1A7 5; 
1Ap B33 Fo 
1A7 638 STORESDIGITS: 
03 % D} Var 659 CMPL RO, #3 :3 DIGITS OR OR LESS SPECIFIED? 
025 3} TAC 661 BRW BADF ILNAM ZNO, "DIRECTORY STRING BAD. EXIT 
3930 F 80 1AF 88 5$ MOVW #*A/00/,(R2)+ BACKGROUND WITH ASCII 0 
2 9 1B4 664 MOVB #*A/0/, (R2)+ 
11 0187 665 BRB 20$ SSTART LOOP AT BOTTOM 
72 71 90 0189 666 10$: MOVB  =-(R1),=(R2) TSTORE BYTES LAST TO FIRST 
1BC 66 SLEAVING LEADING ASCII 0°S 
FASO F4 01BC 668 20$:  SOBGEQ RO,10$ ‘LOOP ZERO OR MORE TIMES 
05 O1BF 66 RSB 
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1 5 a PUSHR #*M<R3,R4,R5> iSAVE THESE FROM MOVC3 
? 
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VON FORMD 


{cho 
MDIR 
05 
38 =6BB 
EA AD 10 BE OC 35 es 


d8 1 


; 12(SP) = SIZE OF STRING, 16(SP) = ADDRESS 


Moves renens Rleasy ,DIRNAM(FP) :MOVE NAME TO SCRATCH AREA 
;RESTORE REGISTERS 
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VOLUME, INIT FOR FILE “JUL- FILEREAD.MAR; 1 (8) 
«SBTTL MOUNT = MOUNT THE VOLUME, INIT FOR FILE LOOKUP 


* 
FUNCTIONAL DESCRIPTION: 


MOUNT gk iy THE NECESSARY INITIALIZATION FOR FILE LOOKUP. 
IT READS er OME +o week THEN RETURNS THE soeee FILE HEADER TO THE 
SPECIFIED BUFFER. X FILE HEADER i ALTERED BY RECORDING THE 
VIRTUAL BLOCK Ori set Whe WIRED TO TRANSLATE ‘FILE NUMBER’ TO INDEX FILE VBN 
CALLING SEQUENCE: 

CALLG ARGLIST,FILSMOUNT 
INPUT PARAMETERS: 

CHAN (AP) HANNEL ON wees DEVICE IS ASSIGNED 

UNUSED ND PARAMETER NOT USED 

IXFHOR CAP) ADDRESS TO RETURN INDEX FILE HEADER 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
RO = SYSTEM STATUS CODE 
IMPLICIT OUTPUTS: 


NONE 
COMPLETION CODES: 
SS$_NORMAL SUCCESSFUL_COMPLETION 
e5- FILESTRUCT FILE STRUCTURE LEVEL NOT SUPPORTED 
Rte BADCHKSUM CHECKSUM ERROR ON HOME BLOCK OR INDEX FILE HEADER 
SS$_BADFILEHDR INDEX FILE HEADER IS BAD 


SIDE EFFECTS: 
NONE 


EQUATED SYMBOLS, OFFSETS FROM AP 


CHAN = 4 
IXFHDR : 12 
FILSMOUNT:: 
.WORD “M<R2,R3,R4> 
MOVL 1AFHDRCAB) R3 ;ADDRESS OF BUFFER 
ROTL -(SP :NUMBER OF BYTES TO READ 
MOVZWL #168. READLBLK,,~(SP) ;READ LOGICAL BLOCK FUNCTION 
PUSHL 4 SBUFFER ADDRESS 
PUSHL @ SLOGICAL BLOCK NUMBER 1 IS HOME BLK 


F 
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j 
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FILEREADUV1 - MI RO-VAX ay ES-11 LEVEL 2 FILE RE EAD 10-AUG-1984 18:05: VAX/VMS Macro V04-00 Page 17 F 
VORcons MOUNT VOLUME , Ta FOR FILE erie 7 1F:0231 FILEREAD.MAR; 1 ve v0 
04 aC DD 023 5 PUSHL CHAN(AP) ; CHANNEL 
DD 024 6 PUSHL #5 :NO. OF ARGUMENTS 
0000' CF FA 024 CALLG ¢ P? W*F ILSRDWRTLBN SREAD THE HOME BLOCK 
60 E9 4 : BLBC ~—>—«RO, s {BRANCH IF ERROR 
1 6A 79 HOVE R3_R SADDRESS OF HOME BLOCK 
0 1d 4 0 MOVZWL guhesu CHECKSUMT@=1 ,RO [NO. OF WORDS IN FIRST CHECKSUM 
O46 1 BSBW at CHECKSUM TCHECK THE FIRST CHECKSUM 
51 : MOVL R3,R ; HOME BLOCK AGAIN 
04¢ BSBW =: FAL CHECKSUM SCHECK THE MAIN CHECKSUM 
02 ODA 4 CMPB  =—-« HMO SB_STRUCLEV(R3) ,#2 ils THIS STRUCTURE LEVEL 2? 
a @ p 5 BNEQ 40 :BR IF NOT STRUCTURE LEVEL 2 
y 5 $ STRUCTURE LEVEL 2 
1 IBA po ef 3 MOVL L_IBMAPLBN(R3),R1_ ; INDEX BIT MAP STARTING LBN 
0 20 A 63 10 MOVZWL WIBMAPSIZE(R35,RO ;INDEX BIT MAP SIZE IN BLOCKS 
4 Cad 0 6 1 MOVL iA SL“MAXFILES(R3),.R4 MAXIMUM FILES ON VOLUME 
68 I SONLY INTERESETED IN HIGH 16 BITS 
54 0€ a3 04 AS : 1 MULW 44, HM2$W ~CLUSTER(R3) RG S4*CLUSTER TO LOW WORD OF R4 
54 «OOE A 04 AS 14 MULW3 #4; HM2SW"CLUSTER(R3).R4 :4*CLUSTER TO LOW WORD OF R4 
54 50 ad 027 15 ADDW = RO, RG ;LOW WORD IS VBNOFFSET 
t 18 :FROM FILE ID TO INDEX FILE VBN 
7 18 ; READ INDEX FILE HEADER 
7 19; 0 = NUMBER OF BLOCKS IN INDEX FILE 
f 9 ; Ri - STARTING LON OF INDEX FILE 
O08 AE 51 50 C1 7 : ADDL3 R1,8(SP) ;DESIRED LBN TO ARG LIST 
0000'CF BE FB O27D CALLS Reet Os) 1: SROURTLEN TREAD INDEX FILE HEADER 
8 4 [STRIP OFF THE ARGUMENT LIST 
25 50 £9 5 BLBC RO. 308 SBRANCH IF ERROR 
51 5 DO : MOVL SADDRESS OF HEAD 
E D4 8 CLRL wt tt ;FORM FILE ID ON STACK 
00010001 er DD A 8 PUSHL #°x 10001 SFOR THE INDEX FILE HEADER 
50 E p0 9 9 MOVL  SP,RO SADDRESS OF FILE I 
045 9 0 BSBW FILSCHKFILHDR [CHECK THE FILE HEADER (SEE IF 
96 1 SFILE IDS MATCH) 
O1FE C3. 54~—s«BO 36 : MOVW R4,FH2$W_VBNOFFSET(R3) :STORE VBN OFFSET 
9B 4 : IF MAXFILES WAS GREATER THAN “XFFFF THEN HIGH 16 BITS OF R4 WILL BE 
98 5 ; NON-ZERO. IN THIS CASE, RECORD THE BIGFILNUM BIT IN THE STRUCLEY WORD 
54 54 £0 i f ° $ ASHL #-16,R4,R4 ;SEE IF HIGH 16 BITS = 0 
0006 a3 OA €C A § BBSS $ #FH2$V_BIGFILNUM,FH2$W_ STRUCLEV(R3) , 258 MUST USE HIGH 8 BITS 
A 40 3 OF FIELD AS FILE NUMBER EXTENSION 
50 (01 ¢ Ni 4} g58: MOVZWL #SS$_NORMAL ,RO i oUCcESSFUL COMPLETION 
50 O8CO 8F C AB is 108: MOVZWL #SS$_FILESTRUCT,RO ;UNSUPPORTED FILE STRUCTURE LEVEL 


FILEREADUV = MICRO-VAX I FILES-11 LEVEL E FeaD 10-AUG=1984 18:05:11 VAX/VMS Macro Vv04-00 Page 1 
VOecons FINDFILID = td FILE 1D FOR gpEILE READ erat 7 19:03 :3h FILEREAD.MAR; 1 ° 18) 

Bi 46 me ~SBTTL FINDFILID = FIND FILE ID FOR SPECIFIED FILE 
BI 48 FUNCTIONAL DESCRIPTION: 
Bi 850: EINDEILID SCANS A SPECIFIED DIRECTORY FOR A FILE AND 
81 ; : RETURNS | S FILE’ 1D If FOUN . STRUCTURE LEV VEL 2 DIRECTORIES 
B1 ARE CUSPORTED VERSION NUMBER MEANS FIND MOST RECENT VERSION, 
8! 23 + =1 VERSION (FIND OLDEST) "3 NOT SUPPORTED. 
81 35 > NOTE THAT NON-CONTIGUOUS DIRECTORIES ARE NOT SUPPORTED. 
BI 33 : CALLING SEQUENCE: 
BI 39 : CALLG ARGLIST,FILSFINDFILID 
BI 5 : INPUT PARAMETERS: 
B1 ri : CHAN(AP) :CHANNEL ON WHICH DEVICE IS ASSIGNED 

0281 864 : FILDSC(AP) = ADDRESS OF 3 LONG WORD FILE DESCRIPTOR 

: Bl 865: 1 = SIZE OF ASCII STRING, A 0 VALUE MEANS 
BI 66 : USE THE CONTENTS OF THE NAMBLK BELOW 
Bi 867; 2 = ADDRESS OF ASCII STRING 
B1 68 : 3 = ADDRESS OF NAME BLOCK = (OBSOLETE, LEVEL 1 ONLY) 
BI $ : Y CONTAIN DEFAULTS, BUT MUST BE 
B1 0: Av; LEAST INITIALIZED T 
Bl 871: IT WILL BE WRITTEN. 
B1 rg : IXFHDR (AP) ADR OF INDEX FILE HDR AS RETU RNED FROM FILSMOUNT 
Bl 873: DIRBUF (AP) ADR OF 512 gyTE BUFFER TO USE FOR DIRECTORY SCAN 
Bl 874: STATBLK (AP) ADDRESS OF 2 LONG WORD AREA USED FOR A 
Bl 875: SCRATCH STATISTICS BLOCK 
Bl 876: FILID(AP) ADR OF 3 WORD AREA USED BOTH AS THE ID 0 
Bl 877: THE DIRECTORY TO SCAN AND AS THE PLACE T 

0 Bt 28 : RETURN THE ID OF THE FILE FOUND 
BI 80 : IMPLICIT INPUTS: 
8! : ; NONE 
8! 4 : OUTPUT PARAMETERS: 
BI : ; RO = SYSTEM STATUS CODE 
8! 8 + IMPLICIT OUTPUTS: 
8! 30 : NONE 
BI 96 + COMPLETION CODES: 
Bl 894: SS$_NORMAL SUCCESSFUL COMPLETION 
Bl 895: 55$~NOSUCHF ILE FILE NOT FOU 
B1 36 : S$8- “BADE ILENAME SYNTAX ERROR IN FILE NAME 
Bl 897: 55$~BADCHKSUM CHECKSUM ERROR ON DIR ECTORY FILE HEADER 
BI 38 ; Ht “BADFILEHDR DIRECTORY FILE HEADER WAS BAD 
8! 1 ; SIDE EFFECTS: 
Bl 902: NONE 


B 9 
FILEREADUV1 = MICRO-VAX I FILES=-11 LEVEL 2 FILE READ 10-AUG=-1 18:05:11 VAX/VMS Macro V04-00 Page 19 
VO scone FINDFILID = FIND FILE ID FOR SPECIFIED F ie 1 3b 19:03 :4h FILEREAD.MAR; 1 we O 
B1 3; 
B1 4; 
8! 5 ; EQUATED SYMBOLS, OFFSETS FROM AP 
9000 4 0281 5 : CHAN : 4 
0 0 8 0281 908 FILDSC 2 : 
00 ¢ Bi 909 IXFHDR = 2 
0 1 B1 910 DIRBUF 2 16 
00 146 0281 911 STATBLK = 3 
00000018 BI 316 FILID = 4 
B1 gif : OFFSETS FROM FP 
B1 19 3 
0281 916 SOFFSET aT »NEGATIVE, € 
0281 917 DIR_BFCN ;BUFFER COUNT REMAINING IN LBN CACHE 
0281 918 DIR“ BUF ‘NEXT BUFFER ADDRESS IN DIR LBN CACHE 
0281 919 ENTRY oe [FOUND CACHE ENTRY ADR 
0281 920 <ENTRY,FILSC_DIR_SIZE>,- [CACHE ENTRY FOR SEARCH/CREATE 
0281 921 <SCRATCH_SIZE,0>= :SIZE OF SCRATCH AREA 
0281 922 > 
FFFC DIR_BFCNT: 
FFFS DIR~BU 
FFFG ENTRY_ADR 
FFDO ENTRY? 
FFDO SCRATCH_SIZE 
0281 923 ; 
0281 924 :=- 
0281 925 
oeBt 926 FILSFINDFILID:: 
OFFC 0281 927 7 “M<R2,R3,R4,R5,R6,R7_.RB, RY »R10,R11> 
SE 30 C2 0283 928 SUBL. #-SCRATCH_SiZE.SP. (LOCATE SCRATCH SPACE 
6 30 00 6€ 00 2C 0286 929 MOVCS  #0,(SP),#0,#-SCRATCH_ sizé- tsp) sZ2ERO THE SCRATCH STORAGE 
5B 4204 «(02BC | 930 CLRL RTA ASSUME NO CACHE 
02 6¢C 01 BE 331 CMPL (AP) , #2 SIF ONLY 2 ARGUMENTS 
08 12 Oecl 9 é BNEQ 5$ 
5B 404 AC ODO ci 93 MOVL AAP), RM i THE FIRST IS THE CACHE ADDRESS 
5c 608 AC «OO Cac?) = 984 MOVL BAP) [THE SECOND IS THE REAL ARGUMENT LIST 
5B D3 02¢B 935 5$: TSTL = R11 [CACHE ENABLED? 
66 C«*Y 0 cb 3 6 BEQL 65% [BRANCH IF NOT 
O2CF 938 : WE DO HAVE A CACHE TO LOOK | IN AND MAKE ENTRIES IN, SET UP THE 
cr 939 > SCRATCH REGION FOR A LOOKU 
CF 9941 ASSUME ENTRY EQ SCRATCH_SIZE ;SCRATCH CACHE ENTRY MUST BE ON TOP 
CF he ASSUME FILS$A_DIR_FID EQ !DIR ID 1S AT FRONT OF CACHE ENTRY 
6€ 18 BC 06 38 CF 894 MOVC3 #6, aFTLIDTAP), (SP) [STORE DIRECTORY ID 
50,08 BC 7D Ogd4 gad MOVa © aF{LDSC(AP) ,RO GET LOOKUP NAME DESCRIPTOR 
06 g D1 0208 945 CMPL RO #6 [MUST BE MORE THAN ''.DIR;1 
15 Q¢p8 946 BLEQ $ BRANCH IF NOT A DIRECTORY NAME 
or 50 pi DD 94 CMPL = RO, #15 [AT MOST 9 CHAR WITH "'.DIR;1 
0 4 02 948 BGTR § [BRANCH IF NOT A DIRECTORY NAME 
52 51 C1 O2E2 94 ADDL3 RO, R1,R2 POINT OFF END OF NAME STRING 
7 138 BF 81 £6 950 CMPW) Ss #*A/:1/,-(R2) [LAST 2 BYTES "':1"' ? 
2 O¢&B 951 BNEQ 108 BRANCH IF NOT A DIRECTORY NAME 
72 5269442€ BF D1 OED 93¢ CMPL = #*A/..DIR/, =(R2) [PRECEDED BY ''.DIR' ? 
C if F4 93 BNEQ 108 [BRANCH IF NOT A DIRECTORY NAME 
50 06 ¢ F6 «954 SUBL §#6,RO [JUST KEEP THE NAME PART 
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FILEREADUV1 ~ MICRO-VAX I FILES-11 LEVEL 2 FILE READ 10-AUG-1984 :05: VAX/VMS Macro V04-00 Pa 
VO scone FINDEILID = FINDCFILE IDCYOR SPECIFIES T Seouentone Weieesso PIRENeS Macre, - 
D6 AD Fo «955 MOVB_ RO,FILST_DIR NAM*ENTRY (FB) PUT psize ne NAME STRING 
7 AD 61 28 23 r $36 MOVC ab FIL$ST Rin Mar Ise ENTRY N ENTRY TO LOOKUP 
8 58 04 ABCC 957 10$:  ADDL3 FICSL_DIROFF(R11)7R11 RBA DDRESS it DIRECTORY CACHE 
B 08 AB C1 938 ADDL ERLSLIDIRNAT(RI1) ,RI R11,R9 :ADDRESS OF LAST+1 BYTE 
1€ «11 ¢ 959 RB 6 ;LOoP 6 OR MORE TIMES 
— 961 ASSUME FILST_DIR_NAM EQ FILSA_DIR_FID+6 
68 DOAD 10 29 ' 96¢ 20S: CMPC3 #610, FILSA DIR FIDSENTRY(FP) , = ;DOES FID AND NAME MATCH? 
96 1 1 964 BNEQ 308 nwt = ;BRANCH IF DIDN'T MATCH ALL OF IT 
F4 AD D 15 965 MOVL RB, ENTRY_ADR(FP) :RECORD THAT A MATCH WAS FOUND 
as 19 366 BRB 70$ 
18 368 : FAILED TO MATCH THE ENTIRE ENTRY, DID WE MATCH THE DIR ID FIELD? 
OA 50 01 18 399 Sos: CMPL RO, #10 :1F 10 OR LESS CHAR'S LEFT 
09 «14 1 971 BGTR [THEN MATCHED THE DIR ID 
FL AD «58 DO 03 76 MOVL RB. ENTRY ADR(FP) [SAVE THIS PARTIAL MATCH 
D6AD 9 ; 4 97 TSTB T_DIR_NAM+ENTRY(FP) :I1F NOT SEARCHING FOR A DIR NAME 
10 13 0327 97% BEQL ‘THEN THIS ENTRY WILL DO FINE 
58 e4 CO 0329 975 50$: ADDL + Soggy SADDRESS OF NEXT CACHE ENTRY 
59 58 D1 032C 976 60S: CMPL 8,R9 SDONE SCANNING DIR CACHE? 
DD IF 03 f 907 BLSSU 208 SBRANCH IF NOT, CHECK NEXT ENTRY 
0331 378 : ENTRY_ADR(FP) = ADDRESS OF CACHE an ENTRY 
0331 980: = 0 IF NO MATCH 
0331 981 : IF WE DROP THROUGH TO HERE AND” UE NGoT A CACHE HIT, THEN IT WAS 
b3 : oes 3; NOT EXACTLY WHAT WE WERE LOOKING FOR. BUT IT DID MATCH THE DIRECTORY. 
58 =F4 AD 09 03 1 984° MOVL  ENTRY_ADR(FP),R8 ;WAS THERE A CACHE HIT? 
3E 13 0335 «6985 65S: BEQL §§ READ_BIR_HEADER ‘BRANCH IF 
oF 617 03 ? 986 BRB 80$ SYES, FOR DIRECTORY LBN AND SIZE 
0336 $88 > FOUND WHAT WE WERE LOOKING FOR - MAY ONLY NEED DIRECTORY LBN AND SIZE 
1E AB DS 0339 990 70S: TSTL FILSA_DIR_OFID(R8) :DID WE GET A FILE 1D? 
OA 13 O33C 991 BEQL RANCH IF NO 
18 BC 16 AB 06 @ 6 3E 996 MOVC3 «#6 ate DIR_OFID(R8), ariviDear) *RETURN THE FILE ID 
50 01 3¢ 0344 99 MOVZWL S*#SS$_NORMAC,RO sSET SUCCESS STATUS 
04 8 rt 4 eae 72$: RET + AND RETURN 
0348 996 : CACHE HIT ONLY FOUND THE DIRECTORY LBN AND SIZE, SAVING THE 
0 4 99 > READ OF THE DIRECTORY FILE HEADER. 
EO AD 10 a8 7D 034 338 80S:  MOVQ  FILSQ_DIR_HDR(R8),FILSQ_DIR_HDR+ENTRY(FP) ;SAVE DIRHDR 
4D 1 00 sINFO FOR MAKING A NEW ENTRY 
4D 1001 ‘WITH THE DIRECTORY FID IN IT 
E8 AD 18 A8 v0 40 1 : MOVL FILL DIR_BEOEE CRG) FIL SC _DIR_BFOEE SENTRY (ED) 
EC AD AB OB 3¢ 1 MOVW FILSWTDIRTBFCNT(R8) .FILSW-DIR~BFCNT+ENTRY (FP) 
25 : : ; ;SAVE-DIR LBN CACHE INFO TOO 
57 1 : t AT THIS POINT ENTRY(FP) CONTAINS DIRECTORY LBN CACHE INFORMATION 
7 1 : IF ONE HAD ALREADY EXISTED OR IF WE JUST CREATED IT. 
, : SET UP THE WORKING LOCATIONS FOR THE DIRECTORY LBN CACHE 
56 ES AD 01 c3 7 1010 $0$: SUBL3 #1, FILSL_DIR_LBN+ENTRY(FP),R6 ;RO=STARTING L 
7 €0aD 3 C 1011 MOVZ2WL FILSW_DIR_BKCNT+ENTRY(FP),R7 ;R7=SIZE OF S heCToRY IN BLOCKS 
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LES-11 LEVEL 2 FILE READ 10-AUG-1984 18:05:11 VAX/VMS Macro v04-00 Page 21 F | 
FILE IbCYOR SPERTFIES > SaauentoRe Teisacso PARENBS Macro, ee 4, v0. 
mOVZYL FILS$W_DIR_BFCNT+ENTRY YCEP) .DIR_BFCNT (EP) -BUFFER COUNT IN LBN CACHE 
ADDL au $4 DIR-BFOFF+ENTRY(FP).R11,DIR_BUF(FP) ;STARTING ADR IN CACHE 
ADDL R6,R ;CAST’LBN"OF FILE INCLUSIVE 
BRW FIND_LEVEL2_1 
BADDIR2: 
BRw BADDIR 
BADRET1 


3 CACHE WAS NOT ENABLED OR THERE WAS NOT A HIT FOR THIS DIRECTORY 
READ_DIR HEADER: 
CALLG 


(AP), FILSRDCHKFILHDR § ;READ AND CHECK DIRECTORY FILE HEADER 
BLBC  RO,BADRET? ‘BRANCH IF 
MOVL DIRBUF (AP) »RS SADDRESS. OF BUFFER TO READ DIRECTORY BLOCKS 
SUBL3 #1,@STATBLK‘AP) ,R6 :GET START LBN - 1 

: IF THIS RESULT Is NEGATIVE, THEN THE DIRECTORY WAS NOT CONTIGUOUS. 

: THIS CODE SUPPO NLY CONTIGUOUS DIRECTORIES THER BUFFER 

: BE REQUIRED TO WOLD THE DIRECTORY HEADER IN ORDER TO SUPPORT NON-CONTIGUOS 

; DIRECTORIES. SUCH DIRECTORIES ARE ONLY CREATED | y FILES@11 WHEN 

+ A DIRECTORY must BE EXTENDED AND THERE IS NOT H CONTIGUOUS SPACE 

: ANYWHERE ON THE VOLUME TO MAKE A NEW DIRECTORY OF OTHE CORRECT SIZE. 
BLSS  BADDIR2 ;BRANCH IF NOT CONTIGUOUS 


; SEE IF THIS LOOKS LIKE A DIRECTORY FILE 


MOVAL FH2su RECATTR(RS).R4  ; ADDRESS OF LEVEL 2 RECORD ATTRIBUTES 
10$: ROTL 6, FATSL EFBLK ( (R4) .R7 :VBN OF DIRECTORY EO 

ist cM réu. FFBYTE( :1F ZERO, EFBLK IS LAST+1 VBN 

DECL. ——-R? {CORRECT TO Ger ai Ast VBN 
208 ADDL3 #1,RO-FILSL, DIR_LBN+ENTRY(FP) ;SAVE START LBN, 

MOVW  R7.FILSW_DIR_BKCNT+ENTRY (FP) :BIREETORY Wsiz 

MOVB #1. FILSBTDIRTLVL+ENTRY(FP) ;AND INDIC ODS-2 STRUCTURE LEVEL 


; (THIS IS FOR BACKWARD-COMPAT W/SYSBOOT) 
SEE IF WE CAN SET UP A CACHE OF THE DIRECTORY BLOCKS FOR THIS DIRECTORY 


TSTL = R11 ZANY CACHEING ENABLED? 

BEQL 80% NCH IF NOT 

SUBL3.  FILSL_LBNNXT(R11),FILSL ~LBNRAX CRIT) Re, NO. OF BYTES 
ASHL #-9,R2,R2 [NO. OF PAGES AVAILABLE 

BEQL 80$ ‘BRANCH IF NO SPACE | AT ALL 

CMPL R2,R7 ‘ENOUGH ROOM FOR WHOLE DIR 

BLEQ 408 BRANCH IF NOT use what IS LEFT 
MOVL — THE RIGHT SIZE 


R7,R2 USE 

40$: MOVL  FICSL_LBNNXT(R11),R3 ‘OFF Set TO DIR ton. CACHE 
: READ THE DISK BLOCKS INTO THE LBN CACHE. 

g :BYTE COUNT TO TRANSFER 


ASHL 

MOVZWL Atte bas taLK.= (SP) TREAD LOGICAL BLOCK FUNCTION 
PUSHAB (RIITLR3 [BUFFER ADDRESS 

PUSHL FILSL_DIR_LBN+ENTRY(FP) STARTING LBN 


=a 
-_—Oo 
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ILES-11 LEVEL 2 FILE READ 10-AUG-1 X/VMS Macro V04-00 Page 2 
SFT rE ib PBR SPECIFIED? ‘Saoteatone Weieesso FTRENBS Macro, oe 2, 
PUSHL CHAN(AP) ; CHANNEL 
CALLS # -FALSROWRTLEN SPILL Fhe DIR LBN CACHE 
BLBC —- ROB [BRANCH IF ERROR 
: NOTE THAT DIRECTORY BLOCKS ARE IN MEMORY 
: MOVL FCNT (FP) ;COUNT OF BLOCKS READ IN 
MOVAB tit VER J,DIR_BUF(FP) ADDRESS OF FIRST BLOCK READ IN 
TSTB T_DIR-NAMTENTRY(FP) SARE WE LOOKING UP ANOTHER DIRECTORY? 
BNEQ [BRANCH IF YES, DON'T ALLOCATE 
iA PERM NENT CACHE ENTRY FOR 
INTERMEDIATE LEVEL DIRECTORY 
MOVW Re FIL $W_DIR R_BFCNT+ENTRYCFP) :SET UP FOR PERMANENT ENTRY 
MOVL R3.F Ls DIR-BFOFF+ENTRY(FP) :SAVE THE SIZE AND OFFSET OF CACHE 
ASHL #9.R2.R :NO. OF BYTES IN CACHE 
ADDL  R1.FICSL_LBNNXT(R11) | :ALLOCATE THE CACHE 
IF IT WAS POSSIBLE TO READ THE DIRECTORY INTO THE LBN CACHE AREA, 
: THE SCAN WILL FIND THESE BLOCKS AS THEY ARE NEEDED 


NO 


= STARTING LBN = 1 FOR THE DIRECTORY 
= COUNT OF BLOCKS OF DIRECTORY TO BE SCANNED 


ADDL ;LAST LBN OF FILE (INCLUSIVE) 
BRB FIND Rot EL2 


Se Fe Se Oe Cee te Oe ee 
o 
za ww 


t ERROR RETURNS. 
broo1n: MOVZWL #SS$_BADIRECTORY,RO 


BADF ILNAM: 
+t Sa #SS$_BADF ILENAME ,RO RETURN ERROR CODE. 
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FILEREADUV = MICRO-VAX I FILES=11 LEVEL 2 FILE READ 10-AUG-1984 1 £05: VAX/VMS Macro V04-00 P 
vote 3 FILSFINDFILID = EFRoctuRE Eb vet ; gore} 38 | zi FILEREAD.MAR; 1 a (i) 
4 p i $ i <SBTTL FILSFINDFILID - STRUCTURE LEVEL 2 
49D 1108 ; STRUCTURE LEVEL 2 
400 11 p FIND_LEVEL2: 
EF 3405 OD €1 4 iN BBC #FH2$V_DIRECTORY, FH2SL_FILECHAR(RS) ,BADDIR ;DIRECTORY BIT MUST BE SE 
412 (111 ASSUME ATSB RATTRIB EQ FATSB_RTYPE+1 
0802 8F B81 0412 1114 CMPW <FATSM_N @ 8 + FATSC VARIABLE>,~ ; VARIABLE LENGTH 
64 416 1115 Farts RTY +H RECORDS NOT CROSSING BLOCK BOUNDARIES 
£8 12 41 1116 BNEQ BAD DIR ‘BRANCH IF BAD RECORD ATTRIBUTES 
419 1118 i eeeee NOTE THAT EACH BLOCK MUST END IN A RECORD SIZE OF =1 
419 1119 ; *eeee A RECORD IS NOT ALLOWED TO EXACTLY FILL THE BLOCK 
419 1120 ; see POP=11 FILE CONTROL SERVICES WILL READS THIS FILE CORRECTLY, BUT 
419 1 1; *eeee WILL NOT WRITE IT PROPERLY. LIKEWISE FOR RMS-11 AND RMS -32 
419 11 g FIND _LEVEL2_1: 
58 08 BC 7D 0419 1124 mova af ILDSC CAP) ,RB :R8 = SIZE, R9 = ADDRESS OF FILE NAME STRING 
SA 04 04610 1125 CURL R SASSUME DEFAULT VERSION 
53 58 «7D «(OKIF O11 6 MOVO = RB, RB [COPY FILE NAME DESCRIPTO 
64 5 : 3a 0422 «11 LOCC =—-_- #*A/ 7, RB, (R4) :FIND FILE TYPE DELIMITER IF PRESENT 
13 04 ’ 1128 BEQL 40% ‘BRANCH IF NOT PRESENT 
53 70 9E 0428 1129 MOVAB =(RO),R3 [SIZE OF REMAINING STRING 
54 01 Al 99E 0428 1130 MOVAB 1(R1).R4 SADDRESS OF STRING BEYOND DELIMITER 
64 53 38 3A O42F 1131 40$: LOCC #*A/;/7,R3,(R4) [SEE IF VERSION DELIMITER PRESENT 
06 12 04 : 11 é BNEQ 0$ ;BRANCH IF IT IS 
64 53 2— 3A 0435 11 LOCC = #* A. /, RB, (R4) [TRY ALTERNATE VERSION DELIMITER 
44 «13 04 g 1 s BEQL 1208 :BRANCH IF NO VERSION STRING PRESENT 
438 11 : : RO = BYTE COUNT OF VERSION STRING PLUS DELIMITER 
4 8 i fi R1 = ADDRESS OF VERSION DELIMITER 
58 50 C2 0438 1139 40$:  sSuBL RO.RB ;REDUCE FILE NAME STRING SIZE 
43— 1140 SELIMINATING VERSION STRING AND DELIMITER 
7E OF 04 ‘ 1141 PUSHAL -(SP) TRESERVE LONG WORD FOR VERSION E 
44 1148 [AND PUSH ITS ADDRESS 
01 Al «OF 440 114 PUSHAB 1(R1) TADDRESS OF VERSION STRING 
79 OF 0443 1144 PUSHAB =(RO) :SIZE OF VERSION STRING 
00000000'EF 03 FB 0445 1145 CALLS 3, LiBscvt x78 [CONVERT DECIMAL VERSION STRING TO BINARY 
B8 50 £9 044 1146 BLBC DFILNAM SBRANCH IF SYNTAX ERROR IN VERSION STRING 
SA BE DO Aa 114 MOVL ty - OR [FETCH EXPLICIT VERSION NUMBER 
452 1149 : R6 = ADDRESS OF LAST LBN READ FROM DIRECTORY FILE (FIRST = 1) 
452 1150 : R7 = ADDRESS OF LAST LBN (INCLUSIVE) TO BE READ FROM DIRECTORY FILE 
452 1151 : RB = SIZE OF NAME STRING TO SCAN FOR 
43 11 ; : RO = ADDRESS OF NAME STRING TO SCAN FOR 
4 i 33 R10 = FILE VERSION NUMBER IF EXPLICIT, OR O IF DEFAULT TO LATEST VERSION 
28 11 43 1 ik BRB 120$ :BEGIN LOOP AT BOTTOM 
4 4 1 5 + RS = ADDRESS OF NEXT RECORD 
54 05 a5 9A 0454 11 3 100$: MOVZBL DIRSB_NAMECOUNT(RS).R4 ;GET SIZE OF "NAME.TYP’’ STRING 
0 D0 0458 11 $ MOVL  RB,R [DETERMINE SMALLER SIZE STRING 
4 : 458 11 CMPL = RB-R TARE STRINGS SAME SIZE? 
9 0456 1168 BLSS =—-:-1058 [BR IF GOT THE SMALLER SIZE 


. - P 4 Fut 
“AUG- 05: VAX/VMS Macro v04-00 age 7 fa 
= MICRO-VAX I FILES=11 LEVEL 2 F fe READ 19-AUG-1984 18:05: S Macro, ATs 
VO sou FICOF INDE ICID - 41 fT tube LEV g 5 g- -JUL 1382 18: 93:1} ‘pam 
:GET SMAL 
r 1} ny : 73 NGS MATCH 
06 AS a9 i : 4 ; 1 105$: CHPCS Hast ,DIRST_NAME (RS) i SEE f i stro UneRe ies pe 
: H . 
Af bene 44 enee 48o8 RG eneek THAT SIZES ARE SAME 
m! @ ter 44 sro “BRANCH IF STRINGS MATCH 
: 23) 1198 Bree 008 ‘BRANCH IF BEYOND WHERE NAME _fouro 60 
} 4 1153 $ ROVIuL IR$SW_SIZE(RS),RO SUSING THE SIZE OF THIS RECO 
8 ase ‘ t3 113 a MOVAB  2(R yrkog RS ZEORM ADDRESS OF NEXT RECORD. 
™ 6 es 478 1175 1108: TST : R W_SIZE(RS) ZEND OF BLOCK? 
: rh 1181 120$:  AOBLEQ R7,R6,160$ oes 
50° 8810 &F ‘ 4 11 Kit MOVZWL #SS$_NOSUCHFILE,RO :CANNOT FIND FIL 
8 Rees i18z aoe, eee :READ THE NEXT DIRECTORY LBN 
489 1184 160$: BSBW READ_DIR_LBN ; 
“2 3 48C 1 . 3 BRB 110$ 
1 $ : FOUND A MATCH OF FILE NAME AND TYPE oe 
; UP NAME C 
ayant ee ; 2008: Avét i R4 TO EVEN NUMBER OF BYTES ; 
Be asta Se bc88 1198 MOVAB DIRST_NAME(RS)CR4],R3  :ADDRESS OF FIRST VERSION ENTRY 
ss BO asthe RERE 113g RRWIL BIRRUCRITEGRS) RO" ETE Gr Tis me OnD ncn ey econo 
55 83 A540 0 O9E 498 1198 MOVA (R5)CROJ,RS : FORA ADD his THe: Eno rE NEX RECO 
R 
a 83 Bead 1482 bear Bios :LATEST iF YES Bf IS ADDRESS OF 
no 1199 _ SDESIRED VERSION AND FILE ID 
tne 119 CMPW = R10, DIRSW_VERSION(R3) 1S THIS THE RIGHT VERSION? 
63 SA B81 04A4 1198 2308 19, i 18 THIS THE R 
BS tk end 1000 an hit {BRANCH IF PAST WHERE IT WOULD BE 
% Be to ryt i St ASDL” #DIRSC_VERSION,R3 {NEXT VERSION ENTRY 
f 33 tae hae : arsg aS, CER ANCH IF NOT, CHECK NEXT VERSION 
se ae bbe! ti08 [VERSION NOT IN THIS VERSION CHAIN 
a rt 1 : ny 7SEE IF IT IS IN THE NEXT RECORD 
rt i ; : FOUND THE FILE ID, RETURN IT TO CALLER 
#8 1888 i HE FILE ID 
56 02 a3 7> 0485 1 § b40S: mova L BaRSy FID(R3) Rb GET THE 
02 a3 86 35 tbe 19 moves #6, DIRSW_FID(R3),@FILID(AP) ;AND RETURN IT TO THE CALLE 
186 SC 
1212 ; 
é¢ 18 ; SEE IF _WE SHOULD MAKE A CACHE ENTRY FOR THIS LOOKUP 
C2 1215 : 
1016 EXIT_FILID_FND: cearane 
ete ee Mk A AP ea 
eH EE UBER ibe prnenrmrern Hot ion eee LSI ee 
ee fy 9 tsi NTRY_ADR(FP) [CACHE HIT FOR THIS DIR HDR? 
we oy ee 0 0s * :BR cH YES aad 
: 17 beo8 4 : one 8 KE THE CACHE ENTRY FOR THIS D1 
Mo ep 1 4 208: aCVL R6,FILSA_DIR OF ID+ENTRY (FP) “STORE THE FID FOUND 
SB BBE EEE es, RP TORRES IP Seth cel ser vo nee soc 
5808 DO O4DA 1226 308: MOVL  FILSL_DIRNX ; 


vaseob 


6848 


Rey 


1 


C 
th 


— 


4 SS 


RO=VAX 


INDFILI 

DE 1 
& 1 
& 1 
4 1 
4 1 
4 1 
4F2 4 
4F> 1 
4F6 1 
4F6 1 
4F6 1 
476 1 
476 1 


EBSD REE BBE heap eaue=198e 14: * $b PITEREAD mans 1 O*"O° Page f) 
GY Gittins aa tad tm 
moves PFILSe DIR St? en A, sada H Be 


90$: 
7888: nove #SS$_NORMAL ,RO INDICATE SUCCESSFUL COMPLETION 


: BAD DIRECTORY FILE 


: BADDIRI: 
BRW BADDIR 
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ie .SBTTL READ_DIR_LBN = READ NEXT DIRECTORY LBN 
: FUNCTIONAL DESCRIPTION: 


READ THE NEXT DIRECTORY LBN FROM THE DISK OR POINT AT 
THE CACHED COPY IF ONE IS PRESENT 


CALLING SEQUENCE: 
BSBW READ_DIR_LBN 


, ee 
nv 


Di Di Di i Bi i Bi Rs Bi Ri Bi i Be es ee Re Re Bs es Be Bs Re Bs Re Bs Be Bs es es | 


AUD ONLOOMOMOODUN—MOOOOOVOowowowvowvowvownowvowvovnovo 


INPUT: 
R6 = DESIRED LBN 
DIRBUF (AP) = BUFFER ADDRESS TO ad IT INTO 
CHAN(AP) = CHANNEL ie. piene WRT 
DIR_BFCNT(FP) = COUN F BUFFERS REMAINING IN DIR LBN CACHE 
DIR_BUF(FP) = ADDRESS oF NEXT BUFFER IN DIR LBN CACHE 
OUTPUTS: 
a = poone ss OF DESIRED DIRECTORY LBN 
RSB IF SUCCESSFU 
net WITH STATUS UN RO IF ERROR 
. R1 DESTROYED, OTHERS PRESERVED 


READ_DIR_LBN: 


i kh th th tt 
DSI SSS SSS DDD PPP PPA PA III SS ES SE EE 


DOONAN WN | CO OD NA NEW SO OD NA NE " OOONOM 


PV PVPV PVPS SUSU SOS EB BB BB BB PPP PEPE EEE EES 


FC AD TSTL DAR. BFCNT(FP) ;ANYTHING LEFT IN DIR LBN CACHE? 
OE BEQL $" ‘BRANCH IF NOT 
FC AD DECL DIR -BFCNT CFP). [COUNT ANOTHER BUFFER USED 
55 OF AD MOVL DIR’ BUF KE :LOAD ADDRESS OF 
FB AD 0200 C te MOVAL 12TR5), Bar “BOF (EP) tAND POINT TO NEXT BUFFER IF ANY 
: DIR LBN CACHE RAN OUT OF BLOCKS OR NEVER HAD ANY AT ALL 
55 10 AC 20$:  MOVL DIRBUF(AP),R ZADDRESS OF BUFFER TO READ INTO 
1 READLBN CHANCAP) Ré ins) [READ THE DESIRED LBN 
7E 91 9 1 ott 49,41 
— 21 1 ov WL ais. REASLBLK, -(SP) 
4 1 PUSHAL 
& 1 PUSHL 
04 A 1 PUSHL AP) 
0000' CF : 1 CALLS Fee eT USRDWRTLEN 
E5 “ 1281 BLBS $ ;BRANCH IF READ SUCCESSFULLY 
1282 RET SRETURN ERROR STATUS 


yen UMEMCHOE# AMEND REE ACURA “HMEHORG ATSREND VARA tae tOe rae 


4 oe ~SBTTL RDCHKFILHDR - READ AND CHECK FILE HEADER 
: ; FUNCTIONAL DESCRIPTION: 
1 : RDCHKFILHDR READS AND VALIDATES A FILE HEADER GIVEN ITS FILE ID 
f ; AND THE INDEX FILE HEADER AS RETURNED BY FILSMOUNT 
: > CALLING SEQUENCE: 
33 ; CALLG ARGLIST,FILSRDCHKFILHDR 
39 + INPUT PARAMETERS: 
527 (1 39 ; CHAN(AP) CHANNEL ON WHICH DEVICE IS ASSIGNED 
507 1 98 ; UNUSED UNUSED PARAMETER DIF 
527 1299; IXFHDR (AP) ADR OF INDEX FILE HEADER AS RETURNED BY FILSMOUNT DIF 
29 9 3 FILHOR(AP) ADDRESS OF 512 BYTE BUFFER FOR FILE HEADER DIF 
7 1 3 STATBLK (AP) ADR OF 2 LONG WORD AREA TO RETURN STATISTICS BLOCK DIF 
ke ¢ 3 FILID(AP) ADDRESS OF 3 WORD FILE ID OF DESIRED FILE HEADER DIF 
527 1 ; RTRVPTRLEN(AP) = ADDRESS TO RETURN THE NUMBER DIF 
527 1304 ; BYTES OF RETRIEVAL POINTERS STORED DIF 
527 1305; weeee OPTIONAL PARAMETER tee2 DIF 
5e7. 1 $ ; RTRVPTRBUF(AP) = ADDRESS OF RETRIEVAL POINTER DIF 
527 1 ; BUFFER DESCRIPTOR. THIS PARAMETER DIF 
527 1308 ; 1S PRESENT IF AND ONLY IF DIF 
527 1309 ; RTRVPTRLEN IS PRESENT DIF 
527 1310; THE RETRIEVAL POINTERS ARE RETURNED IN EN] 
527 1311; THE FORM 32 BIT BLOCK COUNT, 32 BIT LBN EN] 
527 1 i : A ZERO BUFFER DESCRIPTOR ADORESS OR A Ex! 
527 1313 ; ZERO BUFFER ADDRESS MEANS DON FAI 
2 ! 3 3 RETURN RETRIEVAL POINTER INFO pal 
507 1 16 + IMPLICIT INPUTS: FAI 
35h i8ie | NONE 
507 1 1 ; 
3 4 ' Y 3 OUTPUT PARAMETERS: 
3 f é : RO = SYSTEM STATUS CODE 
527 1324 : IMPLICIT OUTPUTS: 
35h 1358 | NONE 
3 ma § ; 
; \ 8 ; COMPLETION CODES: 
£1330 ; SS$_NORMAL SUCCESSFUL COMPLETION 
, j : SIDE EFFECTS: 
537 1384 NONE 
, : ; { 
f ; EQUATED SYMBOLS 
7 1 5 + OFFSETS FROM AP { 
7 1340 ; | 
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Vos eobs RCH TLNDR = READ AND aitt4 Ffk HEADE Bre 32 1%: 9? i} FILEREAD.MAR; 1 . (73) 
9 134 ARGCNT 2 
134 CHAN = 4 
134 TxF HOR > 1 
134 ILHDR = 1 
1 134 STATBLK = 
18 1 46 FILID = 4 
1 134 RTRVPTRL = : ; OPTIONAL PARAMETER 
2 f 4 RTRVPTRBUF 2 ; PRESENT IF AND ONLY IF RTRVPTRLEN IS 
4 ! 3 OFFSETS FROM FP 
, 1 ; SOF FSET 0: NEGATIVE, <= 
1 :COUNT OF FILE HEADERS READ 
527 1354 CTHPRTRVLEND = - :TEMP RTRV PTR 
3 i 3 <TMPRTRVDSC, STEMP RTRV PTR BUFFER DESCRIPTOR 
FFF HDRCNT: 
FFF TMPRTRVLEN: 
FFF TMPRTRVDSC: 
asf | HS : 
527 1359 ° 
527 1360 FILSRDCHKE LHR: : 
007c 0527 1 61 ORD  “M<R2,R3,R4,R5,R6> 
7E 01 CE 0529 1 : ANEGL #i,-($P) ;COUNT OF HEADER BLOCKS READ 
E 04 052c 136 CLRL = §P) SINIT RTRV PTR BYTE COUNT 
7E 7C 0526 1364 CLRO 20s = (SP) SASSUME NO RTRV PTR BUFFER 
08 6C 01 0530 1365 CMPL § ARGCNT(AP), #RTRVPTRBUF /4° :RTRV PTR PARAMS PRESENT? 
0 19 0533 1 66 BLSS RANCH IF NOT 
50 20 aC dO 0535 136 MOVL RTRVPTRBUF (AP) ,RO TRTRV BUFFER DESCRIPTOR ADDRESS 
07 «#13 0539 1 68 BEQL 2$ ‘BRANCH Hi NONE SPECIFIED 
FO AD 60 7d 0538 1 6 MOVG (RO), TMPRTRVDSC(FP) [MAKE COPY OF BUF DESCRIPTOR 
1¢ BC D4 33 20 CLRL @RTRVPTRLEN(AP) SINIT RETURNED BYTE COUNT 
548 1 ce ASSUME FILHDR EQ IXFHDR+4 
52. OC AC 7D 0542 1373 28: MOVQ IXFHDR(AP),R2 ike = INDEX FILE HEADER ADDRESS 
546 137% :R3 = FILE HEADER ADDRESS 
46 1375 ASSUME FILID EQ STATBLK+4 
54 14 AC OD «(0546 1 0 MOVQ = STATBLK(AP) ,R4 :R4 = RETURN STA TBLK ADDRESS 
4A 137 :R5 = ADDRESS OF 
ze 5 7D 054A 1 28 MOVa = (RS) , = (SP) [COPY FILE ID TO UAT ABLE SCRATCH 
5 E pO 054d 137 MOVL  SP,R5 TAND REMEMBER ITS ADDRESS 
56 CO7EOCS7E 1380 MOVAQ =(§P),R6 TRESERVE SCRATCH STATISTICS BLOCK 
1381 SAND SAVE ITS ADDRESS IN R6 
64 7 1 é CLRQ = (R4) SINIT THE RETURN STAT BLOCK 
64 p 1 DECL (R4) t=1 LBN MEANS NOT YET STORED 
re 65 C 1384 5$ MOVZWL (RS) ,=(SP) FILE ER TO LONG WORD 
5 06 A A fi A 1385 BBC ar Hesy B1GF ILNUM.EH FH2$W ~STRUCLEV(R 10$ ;BRANCH IF NO BIG FIL NUM 
2 AE 05 AS F 6 MOVB = FID$SB_AMX(R5) ,2(SP) ;HIGH 8 BITS OF RVN COMPLETE FILE NUMBER 
5 BF p 364 10$: nov eas :IF FILE ID 1S ZERO, 
006D ; 387 1 § BRW 4 $ ; THEN READ LAST HEADER BLOCK 
51 guFe ce C 6¢ 1 6 12$ MOVZWL FH2$W_VBNOFFSET(R2),R1 ;RECOVER VBN OFFSET FROM INDEX FILE HEADER 
0 a) 1 3 ADDL —R1, RO™ SADD VBN OFFSET TO FORM INDEX FILE VBN 
FC AD «06 0574 1 ; INCL __- HORCNT(FP [COUNT EACH HEADER READ 
V : L 
77 (139 READVBN CHAN(AP) if, (R3),(R2) READ THE FILE HEADER 
62. OOF 77 PUSHAL (R25 
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VOec ons ROCHRFILHOR © REAB AND FHIREK FILECRIERDER “Seotertone 1eieessh PARZ MBS Macro, 9 12) 
$3 DF 9 PUSHAL (R3) 
DD B PUSHL 
04 at DD PUSHL  CHAN(AP) 
OSF2'CF FB CALL #4,W°F ILSREADVBN 
62 50 L 1394 BLBC =._—«aRO, 508 ;BRANCH IF ERROR 
SD FC Ap F 1 99 BBS #31 HORCNT(FP) ,50$ :BRANCH IF JUST RE=READING MAIN HEADER 
2 D 1 5 MOVL R RO 7GET FILE 1D ADDRESS 
p 139 MOVL R3.R SADDRESS OF FILE He HEADER 
01 1 98 BSBW =s-s FIL SCHKFILHDR [CHECK THE FILE HEADER 
52 OC AC D 96 139 MOV IXFHDR(AP) ,R2 S INDEX FILE HEADER ADDRESS 
FO AD «ODF «(OS9A «(14 : PUSHAL TMPRTRVDSC(FP) tRTRV PTR BUF DESCRIPTO 
FB AD DF 0590 14 PUSHAL TMPRTRVLEN(FP) ADDRESS TO RETURN BY te COUNT 
: DD O5A0 14 é USHL ‘ TADDRESS OF SCRATCH STAT BLOCK 
DD O5a2 14 PUSHL R SADDRESS OF FILE HEADER 
0685'CF 04 FB O5A4 1404 CALLS WF ILSSTATBLK SREAD STATISTICS BLOCK 
51 FB AD D 3A9 1405 MOVL THéRTRVLENCFPD RI SANY RTRV PTR INFO TO RETURN? 
161 AD 14 6 BEQL SZERO IF NONE REQUESTED 
1¢ BC 31 CO OSAF 14 ADDL AY ORTRVPTRLENCAP) SACCUMULATE RTRVPTR BYTE COUNT 
FO AD 51 «Of 583 1408 CMPL RI. TMPRTRVDSC(FP) SMORE SPACE NEEDED THAN WOULD FIT? 
04 15 0587 1409 BLEQ 4=s«4148 [BRANCH IF NOT 
51 FO AD D 5B9 1410 MOVL TMPRTRVDSC(FP) ,R1 ;SAY WE USED IT ALL 
F4 AD 31 CO O5BD 1411 148: ADDL 1, TMPRTRVDSC+4 (FP) 7GET NEW STARTING ADDRESS 
FO AD 51 €2 05¢1 1618 SUBL —« R1, TMPRTRVDSC (FP) SAND CALC NEW SIZE REMAINING 
51 64 D2 O5€5 1413 168 MCOML (R4),R1 [SEE IF START LBN HAS BEEN SET 
03 12 O5¢B 1414 BNEQ 208 ;BRANCH IF IT HAS 
64 66 DO OS5CA 1415 MOVL (R6), (R4) ; set IT ONCE ONLY 
04 A604 ag c0 5¢D 1416 208 ADDL  4(R65,4(R4) D IN THE SIZE FROM THIS HEADER 
65 OE A D O5D2 141 MOV FH2$W_EXT_FID(R3),(R5) eet EXTENSION FILE ID IF ANY 
FF7E 31 308 1318 30$: BRW 5$ SREAD THIS HEADER IF ANY 
309 14 0 + LAST FILE HEADER READ, SEE IF MUST RE-READ THE ORIGINAL HEADER 
FC AD dS 5D9 14 § hos: TSTL HDRCNT (FP) ;WAS -1, BUMPED ONCE PER READVBN 
09 15 OSpc 14 BLEG 6 45$ ‘BRANCH IF STILL HAVE MASTER FILE HEADER 
65 18 BC 2 SDE 1424 MOVQ a@FILID(AP),(R5) SORIGINAL FILE ID AGA 
EF FC AD 1F E SEO 1425 BBCS #31, HDRCNT(FP) ,30$ :SET SIGN BIT AND GO READ ORIGINAL HEADER 
0 01 3¢ BE? 14 6 458: MOVZUL #5S$_NORMAL,RO- TRETURN SUCCESS STATUS 


FILEREADUV = MICRO-VAX I FIL 1 LEV EAD 10-AUG-1984 18:05: VAX/VMS Macro V04-00 P ee 
Voss 3 READVBN, WRITEVBN neabou fe vik Ue Reap g- reets 7 19:22:35 FILEREAD.MAR; 1 7 Ris 
EB 14 ae .SBTTL READVBN, WRITEVBN = READ/WRITE VIRTUAL BLOCK 
EB 14 i ; FUNCTIONAL DESCRIPTION: 
EB 1433; THESE ROUTINES art AD OR WRITE A VIRTUAL BLOCK FROM A FILE. 
EB 14 : ; VOLUME IS SPECIFIED THE CHANNEL TO WHICH IT IS ASSIGNED, AND THE 
EB 1435 ; FILE IS SPECIFIED by” tHE ADDRESS OF ITS FILE HEADER WHICH WAS PREVIOUSLY 
DEB 14 6 ; READ BY A CALL TO FILSRDFILHDR. 
EB 14 : ; CALLING SEQUENCE: 
368 1440 ; CALLG ARGLIST,FILSREADVBN 
3EB 144 ; CALLG ARGLIST.FIL$WRITEVBN 
3EB 1308 : INPUT PARAMETERS: 
SEB 1445 : CHAN(AP) = ;CHANNEL TO WHICH VOLUME IS ASSIGNED 
SEB 1446 ; VBN(AP) = [DESIRED VIRTUAL BLOCK NUMBER 
SEB 1447 : BUF ADR (AP) 3 SADDRESS OF BUFFER TO READ INTO 
3EB 1448 FILHDR(AP) = TADDRESS OF FILE HEADER 
3EB 1450 ; IMPLICIT INPUTS: 
OSEB 1451 ; 
Sue ig: én 
O5EB 1434 : OUTPUT PARAMETERS: 
3EB 1456 : RO = SYSTEM STATUS CODE 
SEB 1458 : IMPLICIT OUTPUTS: 
SEB 1459 : 
see det —_ 
368 1466 ; COMPLETION CODES: 
SEB 1464: SS$_NORMAL SUCCESSFUL RETURN 
O5EB 1465 Ht ENDOF FILE SPECIFIED BN BEYOND END OF FILE 
5B 1269 $ SIDE EFFECTS: 
SEB 1468 ; 
5B 1469 : NONE 
aE 
368 1476 ; EQUATED SYMBOLS: 
3EB 1474 : OFFSET FROM AP 
00000004 0568 1476 . CHAN = 4 i CHANNEL TO WHICH VOLUME IS ASSIGNED 
8 OSEB 147 VBN = : SVIRTUAL BLOCK NUMBER 
¢ 5B 1478 BUF ADR 2 2 ‘BUFFER’ ADDRESS TO READ INTO 
1 SEB 147 } FILHDR 2 16 TADDRESS OF FILE HEADER 
EB 14 ° : OFFSETS FROM FP 
FFFFFFFC Ht 16 IOFUNCTION ° =4 ;SAVED 1/0 FUNCTION CODE 
EB 1485 :-- 
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EB 14 
fB 14 FILSWRITEVBN:: 
7E ie 3 12 § ABV #108 secon nite ian (SP) 
68 it Oke 4d BR ORrve 
f 128 FILSREADVBN: : 
o03¢ F2 149 WORD “M<R2,R3,R4.R 
7E C O5F4 149% MOVZWL #10$ 2 aPAOLBLR = (SP) 
5F7 1495 
5F7 1496 RDWRTVBN: 
55 10 ac 00 SF? 149 MOVL  FILHDR(AP),RS ;BASE ADR OF FILE HEADER 
mY 3r8 1498 BSBB Ss INI RTRVPTRSCAN :SET UP TO SCAN RETRIEVAL POINTERS 
SFD 1300 ; R4 = POINTER TO FIRST RETRIEVAL POINT 
SFD 1501 ; RS = POINTER TO FIRST BYTE BEYOND ine RETRIEVAL P POINTER 
3FD 1308 ; LOOP THROUGH RETRIEVAL POINTERS TO FIND THE ONE WHICH CONTAINS THE DESIRED VBN 
53 O08 AC 01 C3 O5FD 1304 : SUBL3 #1, VBN(AP),R3 ;VBN BASE 0 TO LOOK 
38 10 0602 1505 208:  8SBB GETRTRVPTR SFETCH NEXT RETRIEVAL POINTER 
50 53 1 0604 1506 CMPL  R3,RO +1S VBN IN THIS RET RIEVAL POINTER 
oF 19 0607 13 ? Biss 408 SBRANCH IF YES 
53 C2 0609 1508 SUBL RO, R3 ‘PASS OVER THAT MANY VBN'S 
55) O54) 060C «1509 CMPL = RGR iANY MORE RETRIEVAL POINTERS? 
Fl iF O60F 1510 BLSSU 208 :BRANCH IF YES 
50 0870 BF 3C 0611 1511 MOVZWL #SS$_ENDOFFILE,RO ‘RETURN END OF FILE INDICATION 
oft ||| ae 
bole 1313 ; VBN IS IN THIS RETRIEVAL POINTER, R1 = STARTING LBN 
7E 01 09 9C 0617 1516 os: ROTL 9,#1,-(SP) :NUMBER OF BYTES TO READ/WRITE 
FC AD DD 0618 1517 PUSHL IOFUNCTION(FP) [FUNCTION 
0¢ AC DD O61E 1518 PUSH BUF ADR CAP) BUFFER To TRANSFER TO/FROM 
7E « 651~=C S31 06 1 1519 ADDL R1,-(S LBN 
04 AC DD 0625 1320 PUSHL CHAN(AP) + CHANNEL 
o000'cF 05 FB 0628 1521 CALLS #5,W*FILSRDWRTLBN S TRANSFER THE BLOCK 
04 062D 1522 RET 


FILEREADUV1 - MICRO-VAX I FI ILES LEVEL Pe BEAD 10-AUG=1984 1 :05: VAX/VMS Macro V04-00 P 
VOsc088 INIRTRYPYRECAN. SCENITIALEYECRETRIEVAL PD "SostenoRe Teieeseo YAMANE S Macro, age 2, 
6 : 4 ; .SBTTL INIRTRVPTRSCAN = INITIALIZE RETRIEVAL POINTER SCAN 
6 : : FUNCTIONAL DESCRIPTION: 
6 : 8 ; LOCATE START AND END OF RETRIEVAL POINTERS IN A FILE HEADER. 
6 : 0 ; CALLING SEQUENCE: 
6 f 3 é : BSBW  —sINIRTRVPTRSCAN 
6 E 4 : INPUT: 
Og E 13 $ ; RS = FILE HEADER ADDRESS 
06 E 3 8 3 OUTPUT: 
06 — 1540: R4 = ADDRESS OF 1ST RETRIEVAL POINTER 
‘ E 1341 : RS = ADDRESS OF FIRST BYTE BEYOND LAST RETREIVAL POINTER 
ae 
0626 1545 INIRTRVPTRSCAN: 
50 01A5 9A 06 E 1346 MOVZBL Fu2SB MPOFFSET(R5),RO  ;WORD OFFSET To alNAP AREA 
54 6540 3E 0632 154 MOVAW  (R5)CROJ,R4 ‘BASE ADR OF MAP AREA 
55 3A AS 9A 0636 1548 MOVZBL FH2$B MAP_INUSE(R5),RS :NO. OF WORDS OF RTRV PTRS IN USE 
55 6445 3 065A 1349 10S: NOVAW (R4)CR5I,R5 SADR JUST BEYOND LAST VALID RTRV PTR 
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vote 3 GETRTIRVPTR = CONVERT NEXT RETRIEVAL POIN 9=JUL-1984 1 02:44 FILEREAD.MAR; 1 . Att 
967 g .SBTTL GETRTRVPTR - CONVERT NEXT RETRIEVAL POINTER 
é F : > FUNCTIONAL DESCRIPTION: 
63F 1 § ; CONVERT NEXT RETRIEVAL POINTER TO NUMBER OF BLOCKS COVERED BY 
? : ! : POINTER AND STARTING LBN. 
63F 1 § i ; CALLING SEQUENCE: 
63F 1560 : 
63F 1561 ; BSBW  GETRTRVPTR 
63F 1 6¢ : 
63F 1 6 ; INPUTS: 
63F 1564 : 
63F 1565 : R4 = ADDRESS OF NEXT RETRIEVAL POINTER 
O63F 1306 : 3 
06 F 1267 : : OUTPUTS: 
06 F 1569 ; RO = NUMBER OF BLOCKS COVERED BY THE RETRIEVAL POINTER 
63F 1570 ; R1 = STARTING LOGICAL BLOCK NUMBER 
063 1571 ; R2,R3 PRESERVED 
063F 1378 ; 
O63F 1573 ;-- 
O63F 1574 
O63F 1575 GETRTRVPTR: 
06 F 1526 ; 
63F 1577 ; STRUCTURE LEVEL 2 RETRIEVAL POINTERS 
O63 1378 ; BITS 14:15 = RETRIEVAL POINTER FORMAT 
50 64 O02 OF EF O63 1380 20S: EXTZV #Fm2sv_ FORMAT, #FM2$S_FORMAT,(R4),RO ;FORMAT TO RO 
0644 138¢ PLACEMENT. - PLACEMENT FORMAT 
644 158 ATl,- SFORMAT 1 
644 1384 FORMAT2= FORMAT 2 
644 1585 
64E 1386 ; 
064E 1587 : FORMAT 3 = 8 BYTES 
64E 1588 ; 
64E 1589 : BITS 0:13 = BITS 16:29 OF COUNT - 1 
064E 1390 ; BITS 14:15 = FORMAT = 
064E 1591 : BYTES 2-3 = BITS 0:15 OF COUNT - 1 
064 139¢ ; BYTES 4-7 = LOGICAL BLOCK NUMBER 
64E 1593 : 
64E 1594 FORMATS: 
50 84 10 9 64 1395 ROTL #6 (Rd)s, sR :FORM COUNT 
50 02 1&€ 00 FO 0652 1 %6 INS 0,430 ZERO 0 HIGH 2. Bits 
51 84 D0 0657 159 MOVL tre) )+ Onn? :GET L 
19 11 63, 1398 BRB INCRS® SINCR ERENT COUNT AND EXIT 
65C 1600 : PLACEMENT CONTROL - THIS IS NOT A RETRIEVAL POINTER, RATHER IT 
65C 1601 ; CONSISTS OF 2 BYTES OF PLACEMENT INFORMATION. TREAT AS IF 0 
$9¢ 16 j ; LENGTH RETRIEVAL POINTER. 
C 1603 ; | 
65C¢ 16 4 
65C 1605 PLACEMENT: 
51 1 f 6 € 16 6 MNEGL #1,R1 : IMPOSSIBLE LBN 
54 : ¢ SF O16 ADDL #3 RA [BUMP THE POINTER | 
D4 0662 1608 CLRL oR [CLEAR BLOCK COUNT | 
| 


vu 

oo 
mov! 
ooo 
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O-VAX I FILES=-11 LEVEL 2 FILE READ 10-AUG-1984 18: :05: NM VAX/VMS Macro V04-00 
VPTR = CONVERT NEXT RETRIEVAL POIN 9=JUL-1984 11:44:50 FILEREAD.MAR;1 
64 0 RSB 
6 1611 : FORMAT 1 = 4 gvTes 
1612 : BITS 0:7 = COUNT ~ 1 
6 161 : BITS 313 = BITS 16:21 OF LOGICAL BLOCK NUMBER 
66 1614 : BYTES 2-3 = BITS 0:15 OF LOGICAL BLOCK NUMBER 
66 1616 FORMAT1: 
665 161 MOVL  (R4)+,RO FETCH NTIRE RETRIEVAL POINTER 
668 1618 EXTZV arnesy “one #FM2$S HIGHLBN. RO, ietcn HIGH LBN BITS 
gp 161 ASHQ = #16 
671 1 9 MOVZBL =4( Catt RErETCH = hey -1 
675 1621 INCRSB: 
675 1 é INCL RO ;FORM COUNT 
067 16 3 RSB SAND RETURN 
67 16 5 : FORMAT 2 = 6 BYTES 
678 16 $ : BITS 0:13 = uN -1 
678 1628 : BITS 14:15 = FORMAT = 2 
0678 1629 : BYTES 2-5 = Lon 
po78 ig ? FORMA 
0678 16 ‘ MOVZWL (R4)+,RO H COUNT = ° J AND FORMAT BITS 
0678 163 EXTZV #FM2$V_COUNT2,#FM2$S cout "0. RO ; 1 
0680 1634 MOVL  (R4)+,R1 
1635 RB INCR S INCREMENT COUNT AND RETURN 
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vote 3 STATBLK = tet Fite STATISTICS BLOCK aerate 7 1Fi22:4) FILEREAD.MAR; 1 ” da) 

> i a .SBTTL STATBLK = GET FILE STATISTICS BLOCK 

6 33 ; FUNCTIONAL DESCRIPTION: 

685 1 rh : GIVEN A FILE HEADER, RETURN THE FILE STATISTICS BLOCK 

6 4¢ ; AND OPTIONALLY RETURN THE RETRIEVAL POINTERS 

6 163 ; CALLING SEQUENCE: 

6 1946 ; CALLG ARGLIST,FILSSTATBLK 

6 1948 : INPUT PARAMETERS: 

685 1650 : FILHDR(AP) 2 ;ADDRESS OF THE FILE HEADER 

685 1651 : STATBLK (AP) = TADDRESS TO RETURN STATISTICS BLOCK 
6 3 1658 : RTRVPTRLEN(AP) = SADDRESS TO RETURN THE NUMBER OF 
685 1653 : [BYTES OF RETRIEVAL POINTERS 

685 1654 : [FOUND IN THE FILE HEADER(S). 
685 1655 : feeeee OPTIONAL PARAMETER teene 
685 1636 : RTRVPTRBUF(AP) = SADDRESS OF RETRIEVAL POINTER 
0685 1657 : ‘BUFFER DESCRIPTOR. THIS PARAMETER 
06 5 1658: S PRESENT IF AND ONLY IF 

685 1659 : RTRVPTRLEN IS PRESENT. 

0685 1660 : ‘ZERO DESCRIPTOR ADDRESS OR ZERO 
0685 1661 : ‘BUFFER ADDRESS MEAN T 

0685 166¢ : [RETURN RETRIEVAL POINTER INFO 
0685 1663; 

685 1664 : IMPLICIT INPUTS: 

et 
0685 1869 : 
3 1668 : OUTPUT PARAMETERS: 

ess 1890 : RO = SYSTEM STATUS CODE 
06 5 1671: STATBLK CONTAINS 2 LONGWORDS 

685 1678 : LBN OF 1ST BLOCK IF CONTIGUOUS OR ZERO IF NOT 
0685 1673: SIZE OF FILE IN BLOCK 
0689 1674 : RTRVPTRLEN RECEIVES THE NUMBER OF BYTES OF RETRIEVAL POINTER 
06 1675 : INFORMATION THAT WOULD HAVE BEEN STORED IN THE RETRIEVAL 
685 1676 : POINTER BUFFER GIVEN A LARGE ENOUGH BUFFER. 
06 3 1677 : THE RETRIEVAL POINTER BUFFER RECEIVES NORMAL IZED RETRIEVAL 

8 1678 § POINTERS IN THE FORMAT BIT COUNT, BIT STARTING LBN 
06 16 0 : IMPLICIT OUTPUTS: 

S88 1682 NONE 

6 16 : : 

68) 16 4 > COMPLETION CODES: 

6 ; 16 6 : SS$_NORMAL SUCCESSFUL COMPLETION 

6 16 8 t SIDE EFFECTS: 

1689 ; 
1881 : NONE 
6 1 36 ; 
1693 : EQUATED SYMBOLS: 
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VOscOns STATBLR ~ CET FILE STATISTICS BeOte Souen abe Wiieesso PIMENeSSMacce, oe 76, 
1694 ; 
4 $3 : OFFSETS FROM AP 
0 0 é 1 $3 ARGCNT = 0 ;NUMBER OF ARGUMENTS 
1 : FILHDR : 4 SADDRESS OF FILE HEADER 
8 6 169 STATBLK = é TADDRESS TO RETURN STATISTICS BLOCK 
C 1700 RTRVPTRLEN 5 2 SADDRESS TO RETURN COUNT OF BYTES 
6 1 1 :STORED IN THE RETRIEVAL POINTER BUFFER 
00000010 0685 1 i RTRVPTRBUF : 16 TADDRESS OF RETRIEVAL POINTER 
685 17 ‘BUFFER DESCRIPTOR 
4 1704 ; 
gS t8s F 
6 17 § FILSSTATBLK:: 
OOFC 0685 1708 .WORD “M<R2,R3,R4,R5,R6,R7> 
56 7C «(0687 «1709 cLra.iR ;ASSUME NOT DOING RETRIEVAL POINTERS 
06 6C v1 0689 1710 CMPL § ARGCNT(AP) ,ARTRVPTRBUF/4° ;RTRV PTR PARAMS PRESENT? 
F 19 068C 1711 BLSS ;BRANCH IF NOT 
50 10 AC 09 6 5 W218 RTRVPTRBUF (AP) ,RO TADDRESS OF BUFFER DESCRIPTOR 
09 13 0692 171 BEQL [BRANCH IF NOT SP ECIFIED 
56 60 7D 0694 1714 MOVG (RO), R6 =R6 = MAX SIZE, R? = BUFFER ADR 
56 (07) «COCA:s«(0697—«1715 BICL SEVEN MULTIPLE OF 8 BYTES 
C BC DS 069A 1716 CLRL OR TRVPTREENCAP) tINIT RETURN BYTE COUNT 
55 04 aC BO 69D 1717 S$: MOVL FILHDR(AP) RS TADDRESS OF FILE HEADER 
50 O34 A A 06A1 1718 MOVZBL FH a PPILEEHARCRS) RO FILE CHARACTERISTICS IF LEVEL 2 
7E 50 01 07 F 6A 1719 10$:  EXT2v. #FH2$0_C¢ 1,R6.-(SP5 ;CONTIGUOUS BIT TO TOP OF STACK 
FFBI 6AA 1720 BSBW IWIATROBTASCAN sINIT FOR SCAN OF RETRIEVAL POINTERS 
53 D4 O6AD 1701 CLRL eR tINIT REGISTER TO COUNT BLOCKS 
2 «11 «O6AF. O17 BRB 50s [START AT BOTTOM OF LOOP IN CASE 
681 17 ‘FILE HAS NO RETRIEVAL POINTERS 
FF 30 0681 1724 20$:  $BSBW  GETRTRVPTR [GET THE NEXT RETRIEVAL _POINTER 
53 DS «06B4 «1725 TSTL OR tIS THIS FIRST RTRV P 
OA 12 68 17 : BNEG 408 [BRANCH IF ALREADY COUNTED SOME 
$8 7 g : FIRST RETRIEVAL POINTER 
50 05 688 1730 ° TSTL RO : IGNORE EMPTY ONES 
1€ 13 O6BA 1731 BEQL 50% 
03 6€ £9 06BC 17 BLBC = (SP), 408 ;BRANCH IF FILE NOT CONTIGUOUS 
6BF 17 :0(SP) = 0 IN THIS CASE 
6E 51 00 O6BF 1734 MOVL Rt. (SP) ‘SET LBN OF 1ST NON-ZERO RTRV PTR 
53 50 CO 06C2 1735 40$: ADDL TACCUMULATE COUNT OF BLOCKS 
56 DS «(06CS «17 6 TSTL Ro TANY MORE ROOM FOR RTRV PTRS? 
9 1 C? 17 BEQL 6 45 ‘BRANCH IF NO MORE BUFFER SPACE 
i € (9 17 8 MOVL  RO,(R7)+ SSTORE SIZE OF RETRIEVAL POINTER 
es fe oF MOVL R1.(R7)+ [AND STORE LBN 
6 C CF 1740 SUBL #8,R6 [USED 8 MORE BYTES OF SPACE 
D De 1741 45$: STL R [DOES CALLER WANT RTRV PTR I 
4 13 06D 1748 BEQL 308 SBRANCH IF NOT, DON'T COUNT POINTERS 
0c 8 CO 06D6 174 ADDL #8, @RTRVPTRLEN(AP) [UPDATE RTRV PTR BYTE COUNT 
4 D1 O6DA 1744 50S: CMPL R4-RS TANY MORE RETRIEVAL POINTERS? 
2 IF O6DD 1745 BLSSU 208 TBRANCH IF YES 
4 DF 1246 POPR wR 2> [GET SAVED STARTING LBN 
08 eC ; D 06€1 174 MOVQ R2,aSTATBLK(AP) SRETURN THE STATISTICS BLOCK 
6 0 3 GE} 1748 MOV ZWL #S5$_NORMAL ,RO [SUCCESSFUL COMPLETION 
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TFHEE HERDER VALID? ‘S-JUL-198¢ 11:46:50 FICEREADCRARST saa 
50 -SBTTL FILSCHKFILHDR = CHECK FILE HEADER VALIDITY 
; FUNCTIONAL DESCRIPTION: 

CHECK THE VALIDITY OF A FILE HEADER 
CALLING SEQUENCE: 

BSBW FILSCHKFILHDR 
INPUT PARAMETERS: 


RO = ADDRESS OF FILE 
Ri = ADDRESS OF FILE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
ret TP SL 


7 
or 
xm 


FARER pu Fieatner fen ] 


HKF ILHD 


muon 
or 
x— 


ID 
HE 


ADER 


L + VALID 
T 


FILE 
WITH RO = ERROR STATUS 


uo” 


IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


S$$_BADFILEHDR FIL 
SS$~NOSUCHF ILE FIL 


SIDE EFFECTS: 
NONE 


DDD DP DD PDD PPP PPP DP PAA AAPA AAO OOO 
TMM MMM MMMM MMM MM MMM MMMM MMMM MCMC CHIEN CTT T ICP ICP Ie TIE TIE TY 


DOVNWITNBHHNS OOOOOOO OO OOO OOOO OVOOOVOVOVOVOVOVOOVOVOVSOOVOVOVJDOVOOOOVOD 


| 


E ID CODES DON'T MATCH 
E IS MARKED AS DELETED 


a Te Te Te Tee e Tere re Tere rere rerererererererererererererererererererere 
‘ 
i 


ILSCHKF ILHDR: 
CPB - FH2SB_STRUCLEV(R1) .#2 
BNEQ 308 


o 
™Nm 
o 
~ 
—> 
— 
-0o 


STRUCTURE LEVEL 2? 
T, REPORT ERROR 


nN 
| ed 


> STRUCTURE LEVEL 2 
10s: MOVZWL FHgSU 
v FH 


PAELLA AO 


OOOO OOO 090009 09 69 09 09 09 09 09 SI NIN NNN NN OPP PPA A AAD IIT 
NAME AN SO OO NAME WN CO OD NA UNE WI CO OD NA NE CO OONOUN Et 


Sa 
=" 
wm 
fe 
-~ 
“w 
a" 
c 
~ 
wv 
~~ 

‘ 
t 
>. 


NUM AND FILE SEQ NUM AGREE? 


BE 40$ 
CMPL Agy?*. t8P00 ; L 
tt BAD HEADER 


P) 
CMPW tRO) , (SP) : 


— @-o—-0—-T ow 


SS QU" W100 
De a a a > i> > i> Bp > Pa Pe ee ee ee hee 


a a a a a ts a ss 1 1 1s 1 1 2 + ss 


. a . 
ps Med 4 hy Mee Meat PD 
Dern DTD wD C 


onNewom 


SoOOoOoooo”n 

NOUS WIN oO 

~m 

So 

bed 
o-@w 
ae ar 4 
vm 
vero 


NUMBER AND 
EXTENSION AGREE 
30$ 
POPR #*A<RO> ; A 


H_10 
voss008 Fil ageadan aYMfok EOREGE" HEY eROEAEARES? "BCSURCTORS HHEREEDS YARAYBE Maze 14-00 Paar ih, 


CHECKSUM G0 VERIFY TH >! yee 
50 =60810 BF ay i 30$: ROVZUL bee ~BADF ILEHDR,RO :THIS HEADER is‘Ba 
50 0910 8F 40$ +t hn #SS$_NOSUCHF ILE ,RO DELETED FILE 


re 


vos=008 CHE 


$s? 
4 
er 
‘> 
4 
pe 
- 
ozo 
>r 


1 10 
act, A TO eT 2 t Pee ie) 


. ~SBTTL CHECKSUM = VALIDATE A CHECKSUM 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CALCULA 
FILE HEADERS AND THE HOMEB 


; CALLING SEQUENCE: 
BSBwW FILSCHECK 
BSBw FILSCHECK 
INPUT PARAMETERS: 


RO = NO. OF WORDS TO CHECK IF ENTERING AT CHECKSUM! 
Ri = ADDRESS OF BUFFER TO CHECK 


IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 


RSB TO CALLER IF CH ae as UM IS OK 
RET TO TOP LEVEL WITH ERROR CODE IN RO IF CHECKSUM IS WRONG 


IMPLICIT OUTPUTS: 


YR ND CHECKS THE FILE11 CHECKSUM FOR 


KS 
5) 


ss 


UM : 
KSUM1 ; RDS IN RO 


lh a a a a a a a 
WDOODOOOWOOOOOOOOOOOOOOODOOOOODOOOVOOOOOOOOOOOOO 
Sete Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge Ge Se Ge Se Se Se Ge Ge Ge Se Ge Se Ge Se Se Ge Ge Se 


WOON NEW 9S ODI NIA NEW O OD NAME WWI  O OD NOUN EAI OOD NOUN EAN OOOO mH 


Sa Sa me ee Dn in Din Din tn itn ite itn i Bt te NB i BD 
a i a a a a a a 


PEA PAPA PAO I Be BB Be BB AA AALS 


uw 

~ 

> vs 

= 
SOOOSOOOOOOOCOCOCOOCOOOCOCOOOCOOOOOO COO OCOCOOOCOC OOOO OOOOOOOOOOOOOOoOO VY 


NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
NONE 
FILSCHECKSUM: 
50 OOFF 8F 3¢ #FH2$W_CHECKSUM@-1,RO ;NO. OF WORDS TO CHECK 
E FILSCHECKSUM1 : 
na CLRL sR :INIT THE SUM 
52. 81 Q " aDDW = (R1) +, R2 ;ACCUMULATE THE SUM 
FA F SOBGTR RO, 10$ TONCE FOR EACH WORD 
61 8 CMPW SS sR2, (R1) [CHECKSUM OK? 
BNEQ 208 [BRANCH IF NOT 
0 8 eae RSB 
50 0808 8F ¢ ‘ , NOVZWL #SS$_BADCHKSUM,RO sERROR STATUS IN RO 
END 


roe 8, 


VAX/VMS Macro V04-00 
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table 


PILEREABUY) 


Symbo 


| 
| 


aeeneeney GX 


1 

4 

TR 
eeneneeely GX 
eeaneenely GX 
eeeneeee 


=—~ Oo uy 


x 
wu 
Ne 
ga 
= 
” us 
'_on~ 
<c- o- 
nm - & «mH 


" 


num 
oo 


ovo 
aco 


NT 
OPENF ILE 


tf 


Q_DIR_HDR 
ROCHKFILHOR 


FND 
RIB 


R~CACHE_CNT 
TRY 

TRY_ADR 

IT FILID 


N 
o 


oOo 
« 


bad 
a 
= 
— 
4 


ooooo oooooe 


VOw Owe FOVVVOR € CN ODOV0D~T DDO ow 
Soom eee ONOK Ns usouoee > 4 TD OCS WOO WOMNDWWO uw YO 


>z 

a 2 2 Oo wa 
uwu>> Ne Ove @ z oe ee 
Zwwcve <u ey _ vo 
voa8 JIZE ET ZEST aa o<« 
pet tig gp ety Roe he -——- =z 
vor >>00-00— fa. -@ 


o > «5 x >u a 
ne w 
+ pw 4 Ss Sa 2Qawnm on 
A JIN=EXI JOR NOD oe Wi moe 
a Je 2 Ot OSG 
wwe wwe § | eS ‘cx 
a> JOZe ower oove x<xoceru 
a Ota Ee oe DE 
1 J46 @OVU60 JOwunew zac 
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Symbol table JUL-19 FILEREAD.MAR; 1 (18) 
HM2SL_MAXFILES e C 
HA Waste t evanerenn = A 
= 
Km sue THRAPS Ize = 5 . 
Ea 5 R 8 
= 
O$ “WR OURITELBLK = 0 
Onc = FFFFFFFC 
= 
LAN CACHE CNT = 90000018 
Lies escvt _bTB eereeeee Xx 02 
FFFFFFEO 
NAMDEC Aaa aA > 
PLACEMENT CR 02 
PQ = 01 G 
ROWRTVBN F7 R 0 
READ_DIR_HEADER 3 R 8 
READ“ DIR”LBN 4F9 R 
RTRVPTRBOF = 010 
RTRVPTRLEN = eset 
SAVABS... = FFFFFFF 
SCRATCHSIZE FFFFFFD4 
SCRATCH_SIZE FFFFFF 
$S$_BADCHKSUM = it 0 
SS$_BADF ILEHDR = 00 1 
SS$_BADFILE = 00 1 
SS$_ =BADIREC TORY = 00 $ 
SS$_ENDOF FILE = 
SS$_FILESTRUCT = 008C 
SS$_NORMAL = 1 
SS$"NOSUCHF ILE = 
Teyk = 00 
STORE SDIGITS 1A7 R 02 
TMPRTRVDSC FFFFFFF 
TMPRTRVLEN FFFFFFF 
VBN = 0000000 
were wrawromr een n ena ca 
: ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
» Os ppoonone ( -) 00 ¢ 9.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ FFFFFFF -») O01 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
YF ILEREAD 0000073 1842.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
Jiaianiiibiiaitemnenieeieneiionnl 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 


Foes resmitng RSET REST E 


F ILEREADUV1 = MICRO-VAX I FILES-11 LEVEL 2 rite READ Wyeeue~ 1382 19:03: ]} AX/VMS Macro V04-00 


VAX-11 Macro Run Statistics JUL ILEREAD.MAR; 1 
Symbol table sort 7:00:01. 00:02. 
Pass ; 6 00:04. :00: $ 
$ table output :00:00. :00. 
Cross-reference output :00:00. :00: 3 
Assembler run totals 85 7:00:22. :00:27. 
The york ing set_limit was 1350 pages. 4 

e. 
{here were 70 pages of syabo} table space allocated to hold 3 non-local gnd §3 local symbols. 
1 1 source Lines were read in Pass 1, produc ng 17 object records in Pass 2. 
25 pages of virtual memory were used to define 21 macros. 


Psect synopsis output :Q0: 
98698 bytes (193 pages) of virtual memory were used to buf ter age intermediate 


tee omeer ew reece eon noe seeceecoe} 


! Macro Library statistics ! 


beeen eee ee em ee we eee we ee ee ey 


Macro Library name Macros defined 
Beas 1 ARMORED Eb AMALIE UV) RON. uns at JeUNt Ln 
DISKSSTARWORKOS: eh ease 

SYSSSYSROOT: CSYSLIBJSTARLET.MLB; 1 
TOTALS (all Libraries) 16 


1234 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MAC/LIS=LIS$:F ILERDUV1/0BJ=OBJ$:FILERDUV1 VMS$:BOOUV1SWT+VMS$:F ILEREAD+OBJ$: VMB/LIB+VMS$:LIBUV1/LIB 
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